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_ REM * 


1'DENTIF | CATION 

PRODUCT CODE: MAINDEC-11-DZ2DUT-B8-D 

PRODUCT NAME: DUV11 OFFLINE TRANSMITTER TESTS 
RELEASE DATE: NOV. 1977 

MAINTAINER: O1AGNOSTICS 


_ REM x 


COPYRIGHT (C) 1977 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS. 


THE INFORMATION IN fHIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT 1S FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OF 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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.REM & 
GENERAL DESCRIPTION 


THIS DIAGNOSTIC CAN CHAIN 16 DUV11'S. THIS MEANS THAT 

16 DEVICES CAN BE SEQUENTIALLY EXERCISED. THE DIAGNOSTIC 
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE, 

ut lesan EXERCISING ALL DEVICES IN THIS FASHION UNTIL 
H } 


1. THE DUV11 OFFLINE TRANSMITTER TESTS VERIFY THAT 7 TRANSMITTER 
SECTION PROVIDES THE CORRECT ERROR FLAGS, AND THAT IT 

TRANSMITS CHARACTERS THRU THE BIT WINDOW AT THE CORRECT 

NUMBER OF BITS PER CHARACTER 

REQUIREMENTS 

POP-11/03 COMPUTER (LS!) 


DUV11 SYNCRONOUS/iSOCRONOUS OPTION 


rn 


ONE CONSOLE TELETYPE OR EQUIVALENT 


2.2 STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMOPY WITH BOOTSTRAP 


3. LOADING PROCEDURE 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
1S TO BE USED 


STARTING ADDRESS 
FOR ABSOLUTE LOADER 


4K 017500 
8K 037500 
12K 057500 
16K 077500 
20K 117500 
24K 137500 
28K 157500 

4. STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 


NOTE: ALL SWITCHES PESIDE INTERNAL TO THE CPU AT ADDRESS 
176. THESE MAY BE SET VIA THE CONSOLE TTY BY DIRECTLY 
MODIFYING LOC. 176. 


NOTE: RUNNING UNDER APT-11. THERE IS A USER SWITCH REGISTER 
CALLED “SUSWR". IN ORDER TO BE FLEXIBLE ON THE AVAILIBILITY OF THE 
H315 CONNECTOR, ONE BIT PASSES STATUS TO APT-11. 
BIT O IN SUSWR REFLECTS THIS STATUS. A O = CONNECTOR 
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PRESENT, A 1 = CONNECTOR NOT AVAILIBLE. 

THE USER CHANGES THE CONTENTS OF THIS LOCATION 
WHEN BUILDING THE E TABLE. BY ANSWERING THE 
PROMPT "SWITCH 2". 


AFTER PROGRAM LOAD (INITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


SWCO=1 
TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART 
_ (ONLY IN SINGLE DEVICE TESTS) 

WO1=1 


TO LOCK ON SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 


SW14=1 

NOTE1: IN GENERAL SWO1 WILL BE USED WHEN SW1i4=1 1S USED 
NOTE2: WITHOUT SWO1=1 "LOCK ON TEST" WILL DEFAULT TO TEST 1 
STARTING ADDRESS 

THE STARTING ADDRESS FOR ALL TESTS !S 000200 

THE RETARTING ADDRESS FOR ALL TESTS !S 000200 

THE STARTING ADDRESS TO ENTER A SELECTED TEST 1S 000200 
THE STARTING ADDRESS TO LOCK ON TEST IS 000200 

PROGRAM AND/OR OPERATOR ACTION 

INITIAL PROGRAM START 

4. 3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 
4.3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 

4. 3.1.3 TYPE 2006. 


4. 3.1.4 PROGRAM WILL START. 


a 


4. 3.1.5 THE PROGRAM WILL TYPE “DUV11 DZDUT-B TAPE D™ (ONCE ONLY) 
4. 3.1.6 THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT 1S ABOUT 
TO START TESTING .AND THEN TESTING WILL BEGIN 

PROGRAM RESTART WITH ALL SWITCHES DOWN 

4. 3.2.1 THE PROGRAM WILL TYPE “R” AND WILL COMMENCE TESTING 


SEQ 0003 
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PROGRAM RESTART WITH SWOO=1 


DZ0UT1. M11 
4.3.3 


a. oo 
4%. 2. 3. 
4. 3.3. 
4. 3. 3. 


8. 3. 3. 


4.3.3.6 


INPUT 


4. 3. 3. 


1 SET SWITCH REGISTER (LOC. 176) TO A 000001. 
2 TYPE 200G 

3 PROGRAM WILL START. 

4 


THE PROGRAM WILL TYPE “ 1ST DEVICE: RECEIVER CONTROL REGISTER 
ADDRESS” AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


5 TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED 
FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED . THE PROGRAM WILL TYPE "“?" 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4 


THE PROGRAM WILL TYPE “VECTOR ADDRESS-" AND WAIT FOR AN 
FROM THE TELETYPE KEYBOARD 


7 TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 
FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS 1S TYPED . THE PROGRAM WILL TYPE "? 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6 


.8 THE PROGRAM WILL TYPE “ARE YOU RUNNING MULTIPLE DEVICES ?" 


(Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


.9 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 


<CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE "?” 
AND WILL THEN REPEAT FHE MESSAGE OF 4. 3.3.8 


1F A “NO” ANSWER IS GIVEN: JUMP TO SECTION 4. 3.3.12 
IF A “YES” ANSWER IS GIVEN: THE NEXT QUESTION IS ASKED 


THE PROGRAM WILL TYPE “LAST DEVICE: RECEIVER CONTROL 


10 
REGISTER ADDRESS-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


11 TYPE IN THE ADDRESS OF THe LAST RECEIVER CONTROL REGISTER 
ADDRESS OF THE DUVi1 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


iF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?” 
AND WILL THEN REPEAT THE MESSAGE OF 4. 3.3.10 
NOTE: ALL ADDRESSES SHALL BE CONTIGUOUS 


IF AN “OUT OF RANGE” ADDRESS IS TYPED 


3. 11. 
iE MORE THAN 16 (10) DEVICES AWAY CUPWARDS)..... THE 


SEQ 0004 


| 
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PROGRAM WILL TYPE “OUT OF RANGE: RETYPE LAST DEVICE RXCSR ADDRESS-" 


AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


3311.2 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUVi1 TO BE TESTED FOLLOWED 
BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.11.1 


IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE ADDRESS IS TYPED........... 


-> 2+ OCLs OUT........, THERE 1S NO PROTECTION FOR THIS 

THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM 
1ST DEVICE ADDRESS). THE SAME APPLIES TO IDENTICAL ADDRESSES 
TYPED FOR FIRST AND LAST DEVICE. 

OBSERVE LOCATION @ ACTREG: SEE SECTION 7.2 


33.32 THE PROGRAM WILL TYPE “# OF SYNC CHARS 
SELECTED (1 OR 2)-" AND WAIT FOR AN INPUT FROM THE TELETYPE 
KEYBOARD. REFER TO MANUAL FOR PROPER SWITCH SETTINGS OF 


SWITCH E55-4. 

3.243 TYPE IN THE APPROPRIATE ANSWER "1" OR “2" FOLLOWED 
BY A <CRARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST 
BE tHE SAME) 


IF AN INCORRECT ANSWER 1S TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.12 


4. 3.3.14 THE PROGRAM WILL TYPE “ 1S SEC XMIT SWITCH E55-2 ON? (Y OR N)-" 


AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4. 3.3.15 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
BY A <CARRIAGE RETURN>. (NOTE THAT ALL MULTIPLE DEVICES 
MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL REPEAT THE MESSAGE OF 4. 3. 3.14 


4 3.3.16 THE PROGRAM WILL TYPE “IS SEC REC SWITCH E55-3 ON? 
(Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4. 3.3.17 TYPE IN THE APPROPRIATE ANSWER YES OR NC FOLLOWED 


BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE “?" 
AND WILL REPEAT THE MESSAGE OF 4. 3. 3. 16 


4. 3.3.18 THE PROGRAM WILL TYPE "IS OPT CLR ENABLE SWITCH 


E55-1 ON? (Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


SEQ 0005 
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4. 3.3.19 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
BY A <CARRIAGE RETURN>. (NUTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE "?” 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.18 


4. 3. 3.20 THE PROGRAM WILL TYPE “ARE YOU RUNNING IN MAINT. 
MODE EXTERNAL ? AND...... DO YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONNECTOR ON 7? (Y OR N)-" AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


1 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY 
A <CARRIAGE-RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SANE) 


£ 
tw 
to 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL REPEAT THE MESSAGE OF 4. 3. 3. 20 


%. 3. 3. 22 THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT 
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


PROGRAM RESTART WITH SWO1=1 

NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 

,-,1T WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 

IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED.LOAD 000200, 

AND SELECT SWOO=1 AND ANSWER “NO” TO THE MULTIPLE DEVICE QUESTION 
SEE 4. 3.3 

4 3.4.1 SET SWO1=1 IN SWITCH REG (LOC. 176) 

4 3.4.2 TYPE 200G. 

4. 3.4. 3 PROGRAM WILL START. 

4.3 


4.4 THE PROGRAM WILL TYPE “TEST PC-" AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 


4 3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> 


4.3.4.6 THE PROGRAM WILL TYPE "R" TO INDICATE THAT 1T HAS STARTED 
TESTING AT THE SELECTED TEST 


NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE IS USED 
SINCE THERE 1S NO PROTECTION AGAINST SELECTING AN ADDRESS 
THAT 1S IN THE MIDDLE OF A TEST 

PROGRAM RESTART WITH SW14 =1 

NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE 1S SELECTED 

SEE NOTE IN 4. 3.4 FOR MORE DETAILS 

4.3.5.1 SET SW14=1 IN SWITCH REG (LOC. 176) 


4.3.5.2 TYPE 2006 


SEQ 0006 
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4. 3.5.3 PROGRAM WILL START 


4.3.5.4 THE PROGRAM WILL TYPE “LOCK ON SELECTED TEST ? (Y OR N)-" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.5.5 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
CARRIAGE RETURN> 


1F A NO ANSWER 1S GIVEN: THIS LOCK ON TEST WILL BE IGNORED 


AND THE PROGRAM WILL TYPE "R" TO INDICATE THAT IT HAS STARTED 


TESTING AT TEST 1 


4.3.5.6 IF A YES ANSWER WAS GIVEN: THE PROGRAM WILL ACT AS FOLLOWS. . 


THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 AND WILL REMAIN IN TEST 1 UNTIL HALTED 
OR iF ANY KEY IS STRUCK ON THE TELETYPE . THE PROGRAM 
WILL FREEZE ON THE NEXT TEST UNTIL A KEY IS STRUCK ON 

THE TELETYPE AND SO FORTH THRU THE PROGRAM. IF SWO1 =1 IT 
WILL PERFORM AS IN SECTION 4.2.4 ALLOWING ONE TO FREEZE 
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU, ACCESSED VIA LOC 


SW15 =1 HALT ON ERROR 

SW14 =1 LOOP ON CURRENT TEST 

SW13 =1 INHIBIT ERROR TYPEQUT 

SW11 =1 INHIBIT ITERATIONS 

SW10 =1 ESCAPE TO NEXT TEST ON ERROR 

SWO9 =1 LOOP ON ERROR 

SWO1 =1 RESTART PROGRAM AT SELECTED TEST 

SWOO =1 RESELECT VECTOR AND CONTROL REGISTER ADRESSES 


&RPARAMETERS AFTER A PROGRAM RESTART 
TO INHIBIT “END OF PASS" TYPEOUT - TURN TELETYPE OFF 


ERRORS 


ERROR HALTS (UNDER LS! ALL HALT ERRORS RETURN CONTROL TO 0.0.T. ) 
THERE ARE FOUR DISTINCT ERROR TYPEOUTS 


PC+2 = ERROR PC 
WHERE PC +2 1S THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2 


REFER TO THE ABOVE “HLT” IN DIAGNOSTIC FOR ERROR DESCRIPTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


PC +2 = REGISTER ERROR PC 
REGISTER EXPECTED ACTUAL 
16XXXX YYYYYY 222222 


WHERE 16XXXX 1S THE ADDRESS OF THE FAILING DEVICE REGISTER 


176). 


SEQ 0007 
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WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 
WHERE 222222 1S THE ACTUAL CONTENTS OF THAT REGISTER 


PC +2 = RECEIVER ERROR PC 
REGISTER EXPECTED ACTUAL 
16XXXX YYYYYY 222222 


WHERE 16XXXX 1S THE ADDRESS OF THE FAILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY |S THE EXPECTED DATA CONTENTS OF THAT REGISTER 
WHERE Z222Z2Z 1S THE ACTUAL DATA CONTENTS OF THAT REGISTER 


PC +2 = TRANSMITTER ERROR PC 
REGISTER EXPECTED ACTUAL 
16XXXX YYYYYY 222222 


WHERE 16XXXX IS THE ADDRESS OF THE FAILING TRANSMITTER (TXCSR) REGISTER 
WHERE YYYYYY 1S THE EXPECTED CONTENTS OF THAT REGISTER 
WHERE 22222Z 1S THE ACTUAL CONTENTS OF THAT REGISTER 


ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS 


ERROR RECOVERY 


SW15 =0 
IF THE PROGRAM IS RUN WITH SW15 =0 .NO OPERATOR ACTION IS 
REQUIRED TO CONTINUE TESTING 


SW15 =1 

1F THE PROGRAM 1S RUN WITH SW15 =1 .TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED . PRESS THE PROCESSOR 
CONSOLE “CONTINUE SWITCH" 


NOTE: THE PC + 2 OF THE "HLT" WILL BE DISPLAYED IN THE DATA LIGHTS 


ILLEGAL INTERRUPTS 

IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED 
DURING PROGRAM INITIALIZATION, THE PROGRAM WILL HALT IN 
THE TRAPCATCHER. THE ADDRESS AT WHICH THE PROGRAM 

HALTS 1S 2 GREATER THAN THE ADDRESS TO WHICH THE INTERRUPT 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 TO 
RECOVER FROM THIS ERROR. 


ADDITIONAL TROUBLESHOOTING AIDS ERRCNT: & PASCNT 
CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF EPPORS AND PASSES RESPECTIVELY 
LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS 


END OF PASS ROUTINE 
THIS TYPEOQUT 1S MENTIONED HERE FOR CONVENIENCE 
1T 1S IN THE FORM: 


SEQ 0008 | 
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END OF PASS TAPE Y 
16XXXX = DEVICE 


WHERE Y IS THE TAPE LOADED 
WHERE 16XXXX 1S THE DEVICE'S BASE REGISTER ADDRESS 
TO INHIBIT THIS TYPEOUT - TURN TELETYPE OFF 

7. RESTRICTIONS 


7.1 MULTIPLE DEVICES 
UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER. THEY 
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS 


NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR 
YOU CAN CHANGE “ZERO: ADD #10,BASEIV ;NEXT BLOCK 
(VECTORS)" TO "ZERO: ADD #0, BASE IV"; 

THEREBY THE VECTOR ADDRESSES WILL NOT BE 

UPDATED AFTER EACH PASS. 


7.2 DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES 


WHEN RUNNING MULTIPLE DEVICES AN ACTIVE BIT IS SET 
FOR EACH DEVICE RUNNING UNDER TEST JE. BIT O FOR 
DEVICE O .BIT 15 FOR DEVICE 15 

TO DISQUALIFY DEVICES: 


7.2.1 IF DEVICE O IS TO BE DISQUALIFIED . SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE. 


7.2.2 IF HOWEVER, DEVICES 1 THRU 15 OR ANY COMBINATION THEREOF 
ARE TO BE DISQUALIFIED.... LOAD THE LOCATION OF ACTREG: 
OBSERVE THE ACTIVE BITS (ACTIVE =1, NONACTIVE = 0) 
AND DEPOSIT O WHERE THOSE DEVICES ARE TO BE DISQUALIFIED 


7.2.2.1 TO RESTART... TYPE 200G.. 
THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING. 


ASS ee Pe SET SWOO=1 IN SWITCH REG (LOC. 176) AND TYPE 200G ... 
ANSWER THE QUESTION :1ST DEVICE : ETC........... 
THE PROGRAM WILL CONTINUE WITH DEVICE O 


7.2.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE THE PROGRAM 
WILL TYPEOUT AN ERROR MESSAGE....... TYPE 200G 


rs CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON) 


7.3.1 TO PROVIDE SUFFICIENT DELAY FOR CLOCK SIGNAL OVER THE CABLE. 
LOCATION “HOLD: " MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES 
PRESENTLY "HOLD: " =20 IS SUFFICIENT TIME ON AN 11/03 MACHINE 


BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS 


Jo4 ae ne eas 
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TO USE THE "XOR" TESTER . THE BRANCH AROUND THE “XOR” 
CODE MUST BE PATCHED TO A “NOP”. (SEE LISTINGS FOR DETAILS) 


DEFAULT PARAMETERS: 
IST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- RXCSR: 160010 


VECTOR ADDRESS- DURIV: 770 
ARE YOU RUNNING MULTIPLE DEVICES ?- NO MULTD: 0 
LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- LASTADD: 0 
# OF SYNC CHARS SELECTED - 2 SYNCNO: 377 

1S SEC XMIT SWITCH E55-2 ON?- YES SEXMIT: 377 

1S SEC REC SWITCH E55-3 ON?- YES SEREC: 377 


1S OPT CLR ENABLE SWITCH E55-1 ON?- YES OPTCLR: 377 


DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER 
CONNECTOR ON (H315)- YES JMRBY: 377 


PROGRAM DESCRIPTION 
THIS PROGRAM PERFORMS THE OFFLINE TRANSMITTER SECTION TESTING 


OF THE DEVICE 
SEE LISTING FOR DETAILS 


FLOW CHARTS: RECEIVER FLOW. TRANSMITTER FLOW. TRANSMITTER & RECEIVER FLOW 
LISTINGS 
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001100 


C00011 
000012 
000015 
000200 
177776 


177774 
177772 
177570 
177570 


000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 


000000 


000340 


100000 
040000 


M1 
14 
APT COMMUNICATIONS ROUTINE 
. ENABLE ABS 


+DUV11 DZDUT-B TAPE D 
>COPYRIGHT 1977, DIGITAL EQUIPMENT CORP., MAYNARD. MASS. 01754 


+STARTING PROCEDURE 

+ TYPE 2006 

+PROGRAM WILL TYPE “DUV11 DZDUT-B TAPE D " 

;PROGRAM WILL TYPE “R" TO INDICATE THAT TESTING HAS STARTED 
;AT THE END OF A PASS, PROGRAM WILL TYPE "ENO OF PASS TAPE D” 
AND THEN RESUME TESTING 


.SBTTL BASIC DEFINITIONS 
+ eal Fanaa OF THE STACK POINTER X4*% 1100 X4% 


STACK= 

.EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
EQUIV LOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
+ ¥MISCELLANEOUS DEFINITIONS 
HT= 11 ;;CODE FOR HORIZONTAL TAB 


21-SEP-77 09:18 PAGE 
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“a 


LF= 12 +;CODE FOR LINE FEED 

CR= 5 +,CODE FOR CARRIAGE RETURN 

CRLF= 200 +>CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 +;PROCESSOR STATUS WORD 


++STACK LIMIT REGISTER 

;;PROGRAM INTERRUPT REQUEST REGISTER 
+; HARDWARE SWITCH REGISTER 

+; HARDWARE DISPLAY REGISTER 


DSWR= 177570 
DNISP= 177570 


a REGISTER DEFINITIONS 
R 


;;GENERAL REGISTER 
Ri= %1 ;;GENERAL REGISTER 
R2= %2 ;: GENERAL REGISTER 
R3= %3 ;;GENERAL REGISTER 
R4= %u +;GENERAL REGISTER 
RS= %5 >; GENERAL REGISTER 
R6= %6 ;;GENERAL REGISTER 
R7= x7 ;;GENERAL REGISTER 
SP= %6 >; STACK POINTER 
PC= %7? >; PROGRAM COUNTER 
;KPRIORITY LEVEL DEFINITIONS 
PRO= 0 ;;PRIORITY LEVEL O 
PRi= 40 ;;PRIORITY LEVEL 1 
PR2= 100 ;;PRIORITY LEVEL 2 
PR3= 140 ;;PRIORITY LEVEL 3 
PRU= 200 ;; PRIORITY LEVEL 4 
PRS= 240 ;;PRIORITY LEVEL 5 
PR6= 300 ;;PRIORITY LEVEL 6 
PR7= 340 ;;PRIORITY LEVEL 7 
; "SWITCH REGISTER” SWITCH DEFINITIONS 
SW15= 100000 
SW14= 40000 


SEQ 0012 
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020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


190000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


000004 
000010 
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BASIC D 


. EQUIV 
. EQUIV 
. EQUIV 
. EQUIV 


+ XDATA 
BIT15= 
1T14= 


ee 
oooo0o0o0o-- 
GAENSuvaoo—n 
nnnnhuth wh ww 


besBeoBeoBssBas Besos BesBa= Bao BasBesds oH ss] 
—_ 
oO 
tS 
" 


wo 
=—a—- 
oo 
oO~ 
“on 


mmm 
ooo 
ccc 
<<ce 


. EQUIV 
. EQUIV 


mmm 
ooo 
ccc 
<< 


-EQuiy 
EQUIV 


- ¢XBASIC 


ERRVEC= 
RESVEC= 


15 
EF INITIONS 


1 

SW09, SWI 
SWO8, SW8 ‘ 
SWO7, SW? 
SWO6, SW6 
SWOS5, SWS 
SWO4, SW4 
SWO3, SW3 
SWO2, SW2 
SWO1, SW1 
SWOO, SWO 


B1T00,B1TO 
“CPU” TRAP VECTOR ADDRESSES 


4 +; TIME OUT AND OTHER ERRORS 
10 >,RESERVED AND ILLEGAL INSTRUCTIONS 


BIT DEFINITIONS (BITOO TO BIT15) 
o0c00 


SEQ 0013 
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000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 
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BASIC DEFINITIONS 


TBITVEC=14 
TRTIVEC= 14 
BPTVEC= 14 
1OTVEC= 20 
PWRVEC= 24 
EMTVEC= 30 
TRAP VEC=34 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 





SEQ 0014 


sat” ONT 

++ TRACE TRAP 

;; BREAKPOINT TRAP (BPT) 

3; INPUT/OUTPUT TRAP (IOT) *¥#SCOPEX% 
+;POWER FAIL 

;;EMULATOR TRAP (EMT) XXERRORXX 

3; "TRAP" TRAP 

7; TTY KEYBOARD VECTOR 

7; TTY PRINTER VECTOR 

3; PROGRAM INTERRUPT REQUEST VECTOR 
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000174 
000176 


000200 


001100 
001102 


001104 
001106 
001110 
001112 
001114 
001116 


001120 
001122 
001124 
001126 
001130 
001132 
001134 
001136 
001140 
001142 
001144 


31-MAY-77 O9: 


000174 
000000 
000000 
000200 
000167 


001100 
00c000 
177570 


000009 
co0000 
000000 
000000 
000000 
000000 


000020 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
oc0000 
000000 
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001746 


8 PAG 


E 17 


BASIC DEFINITIONS 


2174 


DISPREG: 


SWREG: 0 
. =200 


. =1100 


+STANDARD INTERRUPT VECTORS 


0 


JMP . START ;GO TO START OF PROGRAM 


. WORD O 
LIGHTS: 177570 


RETURN: 


oooo0o0o 


;PROGRAM CONTROL PARAMETERS 


;ADDRESS OF NEXT TEST TO BE EXECUTED 
;ADDRESS FOR LOCK ON CURRENT DATA 

; ADDRESS CONTAINING PASS COUNT 
ERROR COUNT 

+ STACK POINTER STORAGE 


PROGRAM VARIABLES 


; TEMPORARY STORAGE=DELAY TIME FOR CABLES 

; TEMPORARY STORAGE= # OF SHIFTS PER CHAR 

; TEMPORARY STORAGE= & OF TIMES A CHAR WILL BE SENT 
PROGRAM COUNTER STORAGE 


Oo 


oo0000000 on 


SEQ 0015 

























0 2 iaitey oe 
DZDUT-B MACY11 30(1046) 21-SEP-77 09:18 PAGE 18 | 
D2DUTB. M11 31-MAY-77 09:49 BASIC DEFINITIONS SEQ 0016 


721 +;PROGRAM CONVERSATIONAL PARAMETERS 

722 «001146 377 SYNCNO: .BYTE 377 +# OF SYNC CHARS Siar ‘0 FOR SYNC ‘ZATION 
723 +001147 377 SEXMIT: . BYTE 377 ; SEC XMIT JUMPER “I 

724 001150 377 SeREC: .BYTE 377 SEC REC JUMPER “Ne 

725 001151 377 OPTCLR: .BYTE 377 OPTIONAL JUMPER CLR "IN" 

726 001152 000 MULTO: .BYTE OQ +NO MULTIPLE DEVICE FLAG 

727 «001153 377 dMRBY: .BYTE 377 EXTERNAL MODEM BYPASS JUMPER “IN” 
728 . EVEN 

729 

730 +>PROGRAM MULTIPLE DEVICE PARAMETERS 

731 001154 9000000 BASEADD: 0 +PROG CONTROLLED 1ST DEVICE ADOR 

732 001156 000000 KEEPADD: 0 ; SAVED 1ST DEVICE ADOR 

733 001160 o0Cc000 LASTADD: 0 +LAST DEVICE RXCSR ADOR 

734 001162 000000 BASE IV: 0 +PROG CONTROLLED IV 

735 001164 000000 KEEP IV: 0 SAVED INTR VECTOR 

736 001166 000000 ACTREG: 0 ;ACTIVE REGISTER .,,MODIFY THIS 

737 +LOCATION TO DISQUALIFY OR QUALIFY 
738 DEVICES (1= RUN,.,O= DON'T RUN) 

739 001170 O00000 ROTADD: 0 :ROTATING POINTER FOR ACTREG.. POINTS 
740 ;TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES 
741 

742 PROGRAM CONTROL FLAGS 

743 

744 001172 000 INIFLG: .BYTE 0Q PROGRAM INITIALIZATION FLAG 
745 001173 oco STFLG: .BYTE 0 : TEST START FLAG 

746 001174 000 LOKFLG: .BYTE O *LOCK ON CURRENT TEST FLAG 
747 001176 _ EVEN 


001400 =1400 
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751 
752 
753 
al + INSTRUCTION DEFINITIONS 
756 005746 PUSH1SP=5746 ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
757 005726 POP 1SP=5726 ; INCREMENT PROCESSOR STACK 1 WORD =TST (SP>+ 
758 010046 PUSHRO= 10046 ;SAVE RO ON STACK =MOV RO, -(SP) 
759 012600 POPRO=12600 ;RESTORE RO FROM STACK =MOV (SP)+,R0 
760 024646 PUSHZSP=24646 ;DECREMENT STACK TWICE =CMP -(SP),-(SP) 
761 022626 POP ZSP=22626 ; INCREMENT STACK TWICE =CMP (SP)+, (SP)+ 
762 *REGISTER DEFINITIONS 
763 +RXCSR BIT DEFINITIONS 
764 100000 OSC=BIT15 DATA SET CHANGE 
765 040000 RING=B1T14 +RING 
766 020000 CTS=BIT13 +CLR TO SEND 
767 010000 CARDET=B1T12 ; CARRIER DETECT 
768 004000 RECACT=BIT11 *REC ACTIVE 
769 002000 SRO=B1T10 SEC REC DATA 
770 001009 DSR=B1T9 DATA SET RDY 
771 c00400 STPSYN=B178 STRIP SYNC 
772 000200 RXDONE=B1T? *REC DONE 
773 000100 RINTEN=B1T6 REC INTR ENABLE 
774 000040 DSINTE=B1TS OSC INTR ENABLE 
775 000020 SYNSCH=B 1 T4 SYNC SEARCH 
776 000010 STO=BIT3 ;SEC XMIT DATA 
777 000004 RTS=B1T2 REQ TO SEND 
778 000002 OTR=B1T1 +DATA TERM RDY 
779 000001 vO1D=B1TO 
780 ;RXDBUF BIT DEFINITIONS 
781 100000 RXERR=B 1715 *REC ERROR 
782 040000 OVRRUN=B1T14 ; OVERRUN 
783 020000 FRMERR=BIT13 ;FRAME ERROR 
784 010000 PARER=BIT12 ;PARITY ERROR 
785 ;PARCSR BIT DEFINITIONS: 
786 001000 PAREN=BIT9 PARITY ENABLE 
787 000400 EVPAR=BIT8 ; EVEN PARITY SENSE 
788 ;PARCSR WRD DEFINITIONS 
789 030000 SYNINT=30000 SYNC EXTERNAL MODE 
790 020000 SYNEXT=20000 SYNC INTERNAL MODE 
791 000000 1SYMOD=0 > 1S0C MODE 
792 000000 FIVE=0 ;WORD LENGTH 5 BITS 
793 002090 $1X=2000 WORD LENGTH 6 BITS 
794 004000 SEVEN=4000 ;WORD LENGTH 7 BITS 
795 006000 E |GHT=6000 ;WORD LENGTH 8 BITS 
796 000000 NOPAR=0 NO PARITY 
797 001000 ODDPAR=1000 00D PARITY 
798 001400 EVEPAR=1400 EVEN PARITY 
799 : TXCSR BIT DEFINITIONS 
800 100000 DNA=BIT15 >DATA NOT AVAILABLE 
801 040000 MTOATA=B1T14 : MAINT DATA 
802 020000 CLK=B1T13 *CLK 
803 002000 BITW=BIT10 *BIT WINDOW 
804 000400 MRESET=B1T8 MASTER RESET 
805 000200 TXDONE =B | T7 >XMIT DONE 
806 000100 TXINTE=B1T6 >XMIT INTR ENABLE 
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000040 
000020 
000010 
000001 


000000 
004000 
010000 
014000 
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BASIC DEFINITIONS 


DNAINTE=B1TS 
SEND=B1T4 
HDXEN=B1T3 
BREAK=B1T0O 
+ TXCSR WRO DEF IN 
USER=0 


MINT=4000 
MEXT=10000 
SYSTST=14000 


*ONR_ INTR ENAB 
+ SEND 

+ HDX/F DX 

+ BREAK 

ITIONS 

+ USER MODE 
MAINT INT MODE 


*+MAINT EXT MODE 
+; SYSTEM TEST MODE 
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001400 
001400 
001402 
001403 
001404 
001406 
001410 
001412 
001414 
001415 
001416 
001420 
001422 
001424 
001426 
001430 
001432 
001434 
001435 
001436 
001440 
001442 
001444 
001446 
001450 
001452 
001454 
001455 
001456 
001457 
001460 


001462 
001464 
001466 
001470 
001472 
001474 
001476 
001500 
001502 
001504 
001506 
001510 
001512 
001514 
001516 
001522 
001523 


001400 
000000 


000000 
000000 
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000377 


COMMON TAGS 
.SBTTL COMMON TAGS 
js MAEXAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAT SS 


;XTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATICNS 
+ KUSED IN THE PROGRAN. 


SCNTAG: os 6 +; START OF COMMON TAGS 

.W 
STSTNM: .BYTE 0 +; CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 +; CONTAINS ERROR FLAG 
SICNT: .WORD O ++ CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WORD O ;+CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 +; CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD O +; CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE O +; CONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 +; CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 +; CONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: .WORD 0 +; CONTAINS ADDRESS OF ‘GOOD' DATA 
SBDADR: .WORD 0 ++ CONTAINS ADDRESS OF ‘BAD' DATA 
SGDDAT: .WORD 0 ++CONTAINS ‘GOOD’ DATA 
SBDODAT: .WORD 0 +;CONTAINS ‘BAD’ DATA 

.WORD 0 ;+RESERVED--NOT TO BE USED 

.WORD O 
SAUTOB: .BYTE 0 ;; AUTOMATIC MODE INDICATOR 
SINTAG: . BYTE : ++ INTERRUPT MODE INDICATOR 

. WORD 
SUR: . WORD OSWR +; ADDRESS OF SWITCH REGISTER 


>,ADDRESS OF DISPLAY REGISTER 

++ TTY KBD STATUS 

++ TTY KBD BUFFER 

>; TTY PRINTER STATUS REG ADDRESS 
+; TTY PRINTER BUFFER REG. ADDRESS 


DISPLAY: . WORD ODISP 
STKS: 177560 
STKB: 177562 
STPS: 177564 
STPB: 177566 


SNULL: .BYTE 0 +;CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 >;CONTAINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE 12 +; INSERT FILL CHARS. AFTER A “LINE FEED” 
STPFLG: .BYTE 9 +; “TERMINAL AVAILABLE" FLAG (B1T<07>=0=YES) 
SREGAD: .WORD 0 +; CONTAINS THE ADDRESS FROM 
*>;WHICH (SREGO) WAS OBTAINED 
SREGO: .WORD O +>; CONTAINS ((SREGAD)+0) 
SREG1: .WORD 0 +; CONTAINS ((S$REGAD) +2) 
SREG2:; .WORD 0 ++ CONTAINS ((SREGAD) +4) 
SREG3: .WORD 0 +CONTAINS ((SREGAD) +6) 
SREGH: .WORD 0 +; CONTAINS ((SREGAD)+10) 
SREGS: .WORD O +; CONTAINS ((SREGAD)+12) 
STMPO: .WORD O ;;USER DEFINED 
STMP1: .WOCRD 0 +;USER DEFINED 
STMP2: .WORD O +; USER DEFINED 
STMP3: .WORD O +;USER DEFINED 
STMPY: .WORD 0 +;USER DEFINED 
STNPS: .WORD 0 +; USER DEFINED 
STIMES: O 7 MAX. NUMBER OF ITERATIONS 
SESCAPE: 0 > ESCAPE ON ERROR ADDRESS 


S$BELL: .ASCIZ tina aac ; 3; CODE FOR BELL 
SQUES: ASCII 7? ee ot abe MARK 
SCRLF: .ASCII 18) > CARRIAGE RETURN 


SEQ 0019 | 


| 
| 
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001524 


001526 
001526 
001530 
001532 
001534 
001536 
001540 
001542 
001544 
001546 
001546 
001547 
001550 
001552 
001554 


001556 
001557 


001560 


001562 
001563 
001564 
001566 
001567 
001570 
001572 
001573 
001574 
001576 
001600 
001602 
001604 
001606 
001610 
001612 
001614 
001616 
001620 
001622 
001624 


31-MAY-77 09: 


000012 


oc0000 
000000 
000000 
000000 
000000 
ooco00 
000000 
000000 


000009 
coo000 


000 
000 


000000 


000000 


SLF: 


SMAMS1: 
SMTP 1: 


SODUS: 
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ASC1Z +LINE FEED 
STITT eet 
.SBTTL APT MAILBOX-ETABLE 


ee ee ee ee 
N 


. BYTE 
. BYTE 


«12> 


AMSGAD 


ACPUOP 


AMANS 1 
AMTYP1 


AMADR 1 


AMANS2 
ANTYP2 
AMADR 2 
AMANS3 
ANTYP3 
AMADR 3 
AMANS4 
ANTYP4 
AMADRY 
AVECTI 
AVECT2 
ABASE 
ADE VN 
ACOW1 
ACOWZ 
ADOWO 
ADOW1 
ADOW2 
ADDW3 
ADOW4 
ADDWS 


SEQ 0020 


;;APT MAILBOX 
+;MESSAGE TYPE CODE 
>; FATAL ERROR NUMBER 
;; TEST NUMBER 
+; PASS COUNT 
+,DEVICE COUNT 
>; 170 UNIT NUMBER 
+; MESSAGE ADDRESS 
+; MESSAGE LENGTH 
>; APT ENVIRONMENT TABLE 
>; ENVIRONMENT BYTE 
>; ENVIRONMENT MODE BITS 
;;APT SWITCH REGISTER 
;;USER SWITCHES 
;;-CPU TYPE, OPTIONS 
BITS 15-11=CPU TYPE 
11/04=01, 11/05=02. 11/20=03, 11740=04, 11745=05 
11/70=06, PO0Q=07, Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT S8=MEMORY MANAGEMENT 
;;HIGH ADORESS.M.S. BYTE 
;;MEM. TYPE, BLK#@1 
MEM. TYPE BYTE -- (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
;; HIGH ADDRESS. BLK#1 
MEM. LAST ADDR. =3 BYTES. THIS WORD AND LOW OF “TYPE” ABOVE 
>;HIGH ADDRESS.M.S. BYTE 
>; MEM. TYPE. BLK#2 
>; MEM. LAST ADDRESS. BLK#2 
;; HIGH ADDRESS.M. S. BYTE 
7; MEM. TYPE, BLK&3 
;; MEM. LAST ADDRESS. BLK&3 
;;HIGH ADDRESS.M. S. BYTE 
7; MEM. TYPE, BLK&4 
;; MEM. LAST ADDRESS. BLK#4 
3; INTERRUPT VECTOR#1,.BUS PRIORITY#1 
>; INTERRUPT VECTOR&2BUS PRIORITY#2 
;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
>;DEVICE MAP 
>; CONTROLLER DESCRIPTION WORD#1 
>; CONTROLLER DESCRIPTION WORD#2 
;;DEVICE DESCRIPTOR WORD&O 
>; DEVICE DESCRIPTOR WORD#1 
>; DEVICE DESCRIPTOR WORD#2 
;;DEVICE DESCRIPTOR WORD#3 
;;DEVICE DESCRIPTOR WORD#4 
>; DEVICE DESCRIPTOR WORD&#S 


SE ee ee 
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001626 
001630 
001632 
001634 
001636 
001640 
001642 
001644 
001646 
001650 


001652 
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000000 
000000 


000000 
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23 
APT MAILBOX-ETABLE 


SODWIS: . 


SE TEND: 


ADOW15 


>; DEVICE 
+, DEVICE 
+; DEVICE 
+; DEVICE 
+; DEVICE 
+; DEVICE 
+, DEVICE 
+; DEVICE 
>; DEVICE 
>; DEVICE 


DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 


WORD#6 
WORDS 7 
WORD#8 
WORD#9 
WORD#10 
WORD# 11 
WORD#12 
WORD#13 
WORD#14 
WORD#15 


SEQ 0021 





| 





DZDUT-B MACY11 30(1046) 
DZDUTB. M11 


944 

945 

946 

947 

948 

949 005746 
950 005726 
951 010046 
952 012600 
953 024646 
954 022626 
955 

956 

957 100000 
958 040000 
959 020000 
960 010000 
961 004000 
962 002000 
963 001000 
964 000400 
965 000200 
966 000100 
967 000040 
968 000020 
969 000010 
970 000004 
971 000002 
972 000001 
973 

974 100000 
975 040000 
976 020000 
977 010000 
978 

979 001000 
980 000400 
981 

982 030000 
983 020000 
984 000000 
985 000000 
986 002090 
987 004000 
988 006000 
989 000000 
990 001000 
991 001400 
992 

993 100000 
994 040000 
995 020000 
996 002000 
997 000400 
998 000200 
999 000100 


31-MAY-77 09:49 
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+ INSTRUCTION DEFINITIONS 


PUSH1SP=5746 + DECREME 
POP 1SP=5726 + INCREME 


PUSHRO= 10046 *>SAVE RO 
POPRO=12600 + RESTORE 
PUSHZ2SP=24646 ;DECRENME 


POP 2SP=22626 + INCREME 
>REGISTER DEFINITIONS 
;RXCSR BIT DEF IN 
OSCc=B!T15 
RING=BIT14 
CTS=B1T13 
CARDET=B81T12 
RECACT=BIT11 
SRO=81T10 
DSR=BIT9 
STPSYN=B17T8 
RXDONE=B1T7 
RINTEN=B1T6 
DSINTE=BITS 
SYNSCH=B1T4 
STO=BIT3 
RTS=B1T2 
DTR=BIT1 
vo1D=B1TO 
;RXOBUF BIT DEF! 
RXERR=B1T15 
OVRRUN=B1T14 
FRMERR=B1T13 
PARER=B17T12 
;PARCSR BIT DEF I 
PAREN=BIT9 
EVPAR=BITS 
;PARCSR WROD DEF | 
SYNINT=30000 
SYNE XT=20000 
1SYMOD=0 
FIVE=0 
$1X=2000 
SE VEN=4000 
£— |GHT=6000 
NOPAR=0 
ODDPAR=1000 
EVEPAR=1400 


NT PROCESSOR STACK 1 WORD =TST -(SP) 
NT PROCESSOR STACK 1 WORD =TST (SP)+ 
ON STACK =MOV RO, -(SP) 

RO FROM STACK =MOV (SP)+,R0 

NT STACK TWICE =CMP -(SP),-(SP) 

NT STACK TWICE =CMP (SP)+, (SP)+ 


I TIONS 
DATA SET CHANGE 
;RING 


+CLR TO SEND 

; CARRIER DETECT 
;REC ACTIVE 

;SEC REC DATA 
;DATA SET RDY 
;STRIP SYNC 

;REC DONE 

;REC INTR ENABLE 
;DSC INTR ENABLE 
> SYNC SEARCH 
;SEC XMIT DATA 
;REQ TO SEND 
;DATA TERM RDY 
NITIONS 
>REC ERROR 

; OVERRUN 

> FRAME ERROR 

, PARITY ERROR 
NITIONS 

;PARITY ENABLE 

>; EVEN PARITY SENSE 
NITIONS 

; SYNC EXTERNAL MODE 
;SYNC INTERNAL MODE 
; SOC MODE 

;WORD LENGTH § BITS 
;WORD LENGTH 6 BITS 
;WORD LENGTH 7 BITS 
;WORD LENGTH 8 BITS 
;NO PARITY 

7000 PARITY 

> EVEN PARITY 


;TXCSR BIT DEFINITIONS 


DNA=B1T15 
MTDATA=B1T14 
CLK=BIT13 
BITW=B1T10 
MRESET=BITS 
TXDONE =B 1 T7 
TXINTE=B1T6 


;DATA NOT AVAILABLE 
; MAINT DATA 

> CLK 

;BIT WINDOW 

;MASTER RESET 

>XMIT DONE 

;XMIT INTR ENABLE 


Laie 
| 
i 


SEQ 0022 
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000040 
000020 
000010 
000001 


000000 
004000 
010000 
014000 
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APT MAILBOX-ETABLE 


DNAINTE=B1TS DNA _ INTR ENAB 
SEND=B1T4 + SEND 
HDXEN=B1T3 + HDX/F DX 
BREAK=B1TO + BREAK 

+ TXCSR WRO DEFINITIONS 
USER=0 USER MODE 
MINT=4000 ;MAINT INT MODE 
MEXT=10000 ;MAINT EXT MODE 
SYSTST=14000 > SYSTEM TEST MODE 


SEQ 0023 
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001652 


001652 
001654 
001656 
001660 
001662 
001664 
001666 
001670 
001672 
001674 
001676 
001700 
001702 
001704 
001706 
001710 


001712 
001714 
001716 
001720 
001722 
001724 
001726 
001730 
001732 
001734 


001736 
001740 
001742 
001744 


001746 
001754 
001762 
001770 
001776 
002004 
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001762 
002067 
002116 
002132 
002022 
002067 
002116 
002132 
002043 
002067 
002116 
002132 
001746 
000000 
002126 
002132 


160010 
160011 
160012 
160013 
160012 
160013 
166014 
160015 
160016 
160017 


000770 
000772 
000774 
000776 


020040 


047440 


051105 
041520 
047503 
051511 
051122 
020116 


047522 
000040 
050115 
047117 
051117 
042522 


ERROR POINTER TABLE 
.SBTTL ERROR POINTER TABLE 
;KTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


;XTHE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
+XLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE soeeees” PERTINENT. 


+ XNOTE1: 
+ KNOTE2: 


vt Pt 2t 2t 


, 
’ 
, 
, 


SERRTB: 


RXCSR: 
HRXCSR: 
RXDBUF : 


HR XDBUF : 


PARCSR: 


HPARCSR: 


TXCSR: 
HTXCSR: 
TXDBUF : 


HTXOBUF : 


DUR IV: 
DUR IS: 
DUT IV: 
DUT IS: 


EM4: 
EM1: 


1F SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRP 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


EM >;POINTS TO THE ERROR MESSAGE 
DH ;;POINTS TO THE DATA HEADER 
DT ;;POINTS TO THE DATA 

DF ;;POINTS TO THE DATA FORMAT 


EM1 *ERROR 1 REGISTER ERROR 
EN2 sERROR 2 RECEIVER ERROR 


EM3 ERROR 3 TRANSMITTER ERROR 


EN4 ERROR 4 BIT ERROR (GENERAL) 


160013 
160013 


160017 
:DEFAULT DU VECTORS 
770 REC INTR VECTOR 
772 REC INTR STATUS 
774 +XMIT INTR VECTOR 
776 +XMIT INTR STATUS 
ERROR MESSAGES 
.ASCIZ 7 ERROR PC 7 


.ASCIZ 7 COMPARISON ERROR ON REGISTERS/ 


SEQ 0024 
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002012 
002020 
002022 
002030 
002036 
002043 
002050 
002056 
002064 


002067 
002074 
002102 
002110 


062116 
002124 
002126 


002132 
062135 


000046 
000052 


000024 
000044 


002136 
002136 
002140 
002142 
002144 
002146 
002150 
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044507 


051105 
051117 


105 
020040 
042105 
052524 
002116 


001416 
000000 


001416 


000 
000 


002136 
O00G046 
012670 
000052 
000000 
002136 


002136 
000024 
000200 
000044 
002136 
002136 


000000 
001526 
000010 
000010 
000000 
000052 


052123 
042522 


051122 
040527 
020040 
046101 


001130 


000000 
000 


051105 
042503 


052124 
051122 


041520 
052116 
041501 

000 


001132 


000 


: _ =$SVPC 
SBTTL APT PARAMETER BLOCK 


8 PAGE 27 
ERROR POINTER TABLE 


EN2: .ASCIZ 7 RECEIVER ERROR/ 


EN3: .ASCIZ 7 TRANSMITTER ERROR/ 


DATA HEADERS FOR ERROR MESSAGES 
DH1: .ASCIZ ZERRPC WANTED ACTUAL/ 


. EVEN 
;DATA TABLES FOR ERROR MESSAGES 
OT1: .WORD SERRPC.HLOO, HLD1,0 
DT4: .WCRD SERRPC.O 
OF 1: . BYTE 0. 0, 0,0 


. EVEN 
.SBTTL ACT11 HOOKS 


Poe ¢ 2252099350995 2 9999099999 959092 590959 0 02> 0 229d 0223 9 02 29 0 0 8 8 0 8 | 
»HOOKS REQUIRED BY ACTI1 
SSVYPC=. + SAVE PC 


SENDAD +-1)SET LOC. 46 TO ADDRESS OF SENDAD IN . SEOP 


“WORD 0 3:2)SET LOC. 52 TO ZERO 
33 RESTORE PC 


jp RERKAAAAAAAAAA AAA RATA ALAA AA AAA AAA AA AA AA AA AAA AAA AA AA AA AAA EES 
7SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
ji REXEAAAAAAARA AAA AAA AAAS AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
$X=. ;;SAVE CURRENT LOCATION 
= 24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ;7FOR APT START UP 
44 ;;POINT TO APT INDIRECT ADDRESS PNTR 
SAP THOR ;;POINT TO APT HEADER BLOCK 
$X ;;RESET LOCATION COUNTER 
PETTITTE TTT TTT TET Tee eee 
; SETUP APT PARAMETER BLOCK AS DEFINED !N THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAP THD: 

SHIBTS: .WORD O +; TWO HIGH BITS OF 18 BIT MAILBOX ADOR. 
SMBADR: .WORD SNAIL ;; ADDRESS OF APT MAILBOX (BITS 0-15) 
STSTM: .WORD 10 +7RUN TIM OF LONGEST TEST 


SPASTM: .WORD 19 ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 


SEQ 0025 


SUNITM: . WORD >; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


_WORD SETEND-SMAIL/2 ;; LENGTH MAILBOX-ETABLE (WORDS) 
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1121 
1122 
1123 +PROGRAM INITIALIZATION 
1124 +LOCK OUT INTERRUPTS 
1125 +SET UP PROCESSOR STACK 
1126 +SET UP POWER FAIL VECTOR 
1127 +CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
Hh + TYPE TITLE MESSAGE 
1130 002152 . START: 
1131 .SBTTL INITIALIZE THE COMMON TAGS 
1132 ++CLEAR THE COMMON TAGS (SCMTAG) AREA 
1133 002152 012706 001400 MOV #SCNTAG, R6 ++FIRST LOCATION TO BE CLEARED 
1134 002156 005026 CLR (R6)+ ++CLEAR MEMORY LOCATION 
1135 002160 022706 001440 CMP #SWR,.R6 >; DONE? 
1136 002164 001374 BNE -6 +-LOOP BACK IF NO 
1137 002166 012706 001100 MOV ##STACK, SP ++SETUP THE STACK POINTER 
1138 +; INITIALIZE A FEW VECTORS 
1139 002172 012737 016314 000020 MoV RSSCOPE, DHIOTVEC 7; 10T VECTOR FOR SCOPE ROUTINE 
1140 002200 012737 O00340 000022 MOV #340, OH IOTVEC+2 7; LEVEL 7 
1141 002206 012737 014204 000030 MoV #SERROR, DHENTVEC 7 EMT VECTOR FOR ERROR ROUTINE 
1142 002214 012737 000340 000032 MOV #340, OHENTVEC+2 7; LEVEL 7 
1143 002222 012737 016650 000034 MOV #STRAP. DETRAPVEC >; TRAP VECTOR FOR TRAP CALLS 
1144 002230 012737 OO00340 000036 MOV #340, OS TRAPVEC+2; LEVEL 7 
1145 002236 012737 015006 000024 MOV RSPWRON, OSPWRVEC -; POWER FAILURE VECTOR 
1146 002244 012737 OOC34O0 000026 MOV . #340, O#PWRVEC+2 >; LEVEL 7 
1147 002252 005067 177234 CLR STIMES +; INITIALIZE NUMBER OF ITERATIONS 
1148 002256 005067 177232 CLR SESCAPE ++CLEAR THE ESCAPE ON ERROR ADDRESS 
1149 002262 112767 Q00001 177125 MOVB #1, SERMAX +-ALLOW ONE ERROR PER TEST 
14150 002270 012767 002270 177110 MOV ert ++ INITIALIZE THE LOOP ADDRESS FOR SCOPE 
1151 002276 012767 002276 177104 MOV - SLPERR +;SETUP THE ERROR LOOP ADDRESS 
1152 ++SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
1153 >;EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
1154 002304 013746 O00004 MOV OFERRVEC.-(SP) +; SAVE ERROR VECTOR 
1155 002310 012737 002344 O00004 MOV #O4S,Q8ERRVEC +; SET UP ERROR VECTOR 
1156 002316 012767 177570 177114 MOV #DSWR, SHR ++SETUP FOR A HARDWARE SWICH REGISTER 
1157 002324 012767 177570 177110 MOV #DDISP,.DISPLAY +; AND A HARDWARE DISPLAY REGISTER 
1158 002332 022777 177777 177100 CMP #-1, OSWR +2 TRY TO REFERENCE HARDWARE SWR 
1159 002340 001012 BNE 66$ +;BRANCH IF NO TIMEOUT TRAP OCCURRED 
1160 +;AND THE HARDWARE SWR IS NOT = -1 
1161 002342 O00403 BR 65$ +;BRANCH IF NO TIMEQUT 
1162 002344 012716 002352 64S: MOV #65%, (SP) ++SET UP FOR TRAP RETURN 
1163 002350 000092 RTI 
1164 002352 012767 000176 177060 65%: MoV #SWREG, SHR +POINT TO SOFTWARE SWR 
1165° 002360 012767 000174 177054 MOV #D1SPREG. DISPLAY 
1166 002366 012637 900004 66S: MOV (SP)+,@#ERRVEC ;; RESTORE ERROR VECTOR 
1167 ‘ 
1168 002372 005067 177136 CLR SPASS +;CLEAR PASS COUNT 
1169 002376 132767 000200 177143 BITB RAPTSIZE,.SENVM <>; TEST USER SIZE UNDER APT 
1170 002404 001403 BEQ 675 +; YES.USE NON-APT SWITCH 
1171 002406 012767 001550 177024 MoV #SSWREG, SWR +2NO.USE APT SWITCH REGISTER 
1172 002414 675: 
1173 002414 012706 001100 MOV #STACK, SP SET STACK 
1174 002420 106427 000340 MTPS #340 +LOCK INTERRUPTS 
11756 002424 012737 015006 000024 - MOV #. PFAIL, d#24 +SET UP POWER FAIL VECTOR 


1176 002432 105067 176535 CLRB STFLG +CLEAR START FLAG 
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1177 002436 005067 176450 CLR PASCNT +; CLEAR PASS COUNT 
1178 002442 105067 176735 CLRB SERFLG CLEAR ERROR FLAG 
1179 002446 005067 176740 CLR SERTTL CLEAR ERROR COUNT 
1180 002452 005067 176740 CLR SERRPC ;CLEAR LAST EPROR enn 
1181 002456 012767 000001 176716 Mov #1, $TSTNM +SET UP FOR TEST 
1182 002464 012767 002152 176412 MOV #. START, RETURN SET UP FOR POWER FAIL BEFORE 
1183 + TESTING STARTS 
1184 002472 013746 000006 MOV a#6, - (SP) 
1185 002476 013746 O00004 MOV #4, -(SP) 
1186 002502 012737 002515 000004 MOV #15, 084 
1187 002510 005777 176724 TST OSWR 
1188 0026514 000407 BR 23 
1189 002516 012767 000176 176714 1%: MOV #SWREG, SWR 
1190 002524 012767 000174 176710 MOV #0 1SPREG, DISPLAY 
1191 002532 022626 CMP (SP)+, (SP)+ 
1192 002534 012637 000004 2$: MOV (SP)+, d#4 
1193 002540 012637 000006 MOV (SP) +, d#6 
1194 002544 022767 000176 176666 CMP #SWREG, SWR 
1195 002552 001007 BNE 3$ 
1196 002554 005737 000042 TST O#42 , CHECK FOR CHAIN 
1197 002560 001402 BEQ 33% 
1198 002562 000167 000522 JMP . BEGIN 
1199 002566 004767 010200 335: JSR PC, CNTLU 
1200 002572 105767 176374 3$: TSTB INIFLG +HAS INITIALIZATION BEEN PERFORMED 
1201 002576 001004 BNE ONCE 
1202 002600 104401 O1&146 TYPE -MTITLE TYPE TITLE MESSAGE 
1203 002604, 105167 176562 COMB INIFLG ;1F NOT SET FLAG AND DO 
1204 002610 105767 176732 ONCE: TSTB SENV APT CONTROL? 
1205 002614 001410 BEQ 11% ;BR IF NO 
1206 002616 032767 000001 176726 BIT #1, SUSWR +EXTENAL JUMPER ON? 
1207 002624 001002 BNE 12% +NO 
1208 002626 105067 176321 CLRB JMRBY ; CLEAR +. 
1209 002632 000167 000452 12%: JMP . BEGIN +GO DO 
1210 002636 032777 O00001 176574 11%: BIT #SWO0, dSWR “RESELECT VECTOR & CONTROL REG? 
1211 002644 001002 BNE 1$ 
1212 002646 000167 000436 JMP . BEGIN 
1213 002652 012700 000300 1S: MOV #300,RO ;RESTORE VECTOR AREA TO TRAPCATCHER 
1214 002656 012701 000302 MOV #302,R1 :START AT LOCATION 300 
1215 002662 012702 000004 MoV #4,R2 
1216 002666 010110 2$: MOV Ri, (RO) 
1217 002670 005011 CLR (Rt) 
1218 002672 060200 ADD R2,RO 
1219 002674 060201 ADD R2,R1 
1220 002676 022701 001000 CMP #1000, R1 END AT LOCATION 776 
1221 002702 002771 BLT 2$ 
1222 002704 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1223 002706 015214 MREGAD ; iESSAGE 
1224 002710 104410 PARAM ; CONVERT STRING 
1226 002712 160000 160000 ;LOW LIMIT 
1226 002714 167776 167776 =; HIGH LIMIT 
1227 002716 017144 DUBASE ;STORE AT THIS LOCATION 
1228 002720 001 .BYTE 1 ; MASK 
1229 002721 001 Ov. +HOW MANY TIMES + 2 
1230 002722 016767 014216 176226 MOV DUBASE.KEEPADD ; SAVE 


1231 002730 004767 014056 JSR PC, DURDOR 
1232 002734 016767 176216 176212 MOV KEEPADD, BASEADD ; RESTORE FOR ROTATION 
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1233 002742 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1234 002744 015201 MVECTO ; MESSAGE 
1235 002746 104410 PARAM ; CONVERT STRING 
1236 002750 000300 300 + LOW pr 
1237 002752 000776 776 +HIGH LIMIT 
1238 002754 001736 DUR IV STORE” at THIS LOCATION 
1239 002756 001 .BYTE 1 ; MASK 
1240 002757 004 .BYTE 4 ; HOW MANY TIMES + 2 
1241 002760 016767 176752 176176 MOV DUR IV, KEEP IV + SAVE 
1242 002766 016767 176744 176166 MOV DUR IV, BASE IV +SET UP FOR ROTATION 
1243 002774 104406 INSTR + OUTPUT MESSAGE & GET INPUT STRING 
1244 002776 015244 MMULT MESSAGE 
1245 003000 104414 SETFLG ; SET dy: BASED UPON INPUT STRING 
1246 003002 001152 MULTD ; THIS FLAG 
1247 O03004 105767 176142 TSTB MUL TD ARE THERE MUL TIPLE DEVICES 
1248 ;ON THE SYSTEM 
1249 003010 100406 BMI BBB + YES, ASK NEXT QUESTION 
1250 003012 005067 176150 CLR ACTREG 
1251 003016 005067 176146 CLR ROTADD 
1252 003022 000167 000140 JMP OUTMUL ; JUMP AROUND NEXT QUESTION 
1253 003026 BBB: 
1254 O0302€ 104406 INSTR) ;OUTPUT MESSAGE & GET INPUT STRING 
1255 003030 015273 MLASTD ; MESSAGE 
1256 003032 104410 PARAM ;CONVERT STRING 
1257 003034 160000 160000 ;LOW pret 
1258 003036 167776 167776 ;HIGH LIMIT 
1259 003040 001160 LASTADD ; STORE ar THIS LOCATION 
1260 003042 001 . BYTE + MASK 
1261 003043 001 BYTE HOW MANY TIMES + 2 
1262 ; THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME 
1263 O03044 012767 O00001 176116 1%: MOV #1,ROTADD +SET UP POINTER 
1264 003052 005067 176110 CLR ACTREG ;CLR ACTIVE REGISTER 
1265 003056 056767 176106 176102 2%: BIS ROTADD.ACTREG ;MAKE THIS DEVICE ACTIVE 
1266 003064 000241 CLC 
1267 003066 006167 176076 ROL ROTADD ;SET UP POINTER 
1268 003072 103421 BCS 3$ ARE YOU OUT OF RANGE ? 
1269 003074 062767 000010 176052 ADD #10, BASEADD +SET UP BASE ADDRESS 
1270 003102 026767 176052 176044 CMP LASTADD, BASEADD ; IS THIS THE LAST DEVICE ? 
1271 003110 101362 BHI 2$ +NO DO IT AGAIN 
1272 003112 056767 176052 176046 BIS ROTADD.ACTREG ;THIS ASSUMES THAT THERE ARE AT 
1273 +LEAST TWO DEVICES WHEN YOU ANSWER YES TO 
1274 ;MULTIPLE DEVICE QUESTION 
1275 003120 012767 OO0001 176042 4%: MOV #1,ROTADD ;SET UP FOR LATER USE IN END OF PASS ROUTINE 
1276 003126 016767 176024 176020 MOV KEEPADD. BASEADD ; DITTO 
1277 003134 000414 BR OUTMUL ;CONTI!NUE QUESTIONS 
1278 003136 016767 176014 176010 33%: MOV KEEPADD. BASEADD ; RESTORE 
1279 003144 104406 INSTR ; OUTPUT MESSAGE & GET INPUT STRING 
1280 003146 015367 MRANGE ; MESSAGE 
1281 003150 104410 PARAM ; CONVERT STRING 
1282 003152 160000 160000 ;LOW eH 
1283 003154 167776 167776 ; HIGH LIMIT 
1284 003156 001160 LASTADD ; STORE ar THIS LOCATION 
1285 003160 001 .BYTE 1 , MASK 
1286 003161 001 orm 3 ;HOW MANY TIMES + 2 
1287 003162 000167 177656 JMP 1$ +00 IT AGAIN 


1288 003166 012767 000340 013612 OUTMUL: MOV #340, DUPRT 
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RAR 


012734 3%: 


012716 1% 


175706 


23: 
4S: 


. BEGIN: 


176112 


YTE 


BYTE 


175530 


175520 3%: 
4$: 


a 


Dd 3 


JSR PC, DULEV 

COMPARE THE FIRST CHARACTER + THE TELETYPE INPUT 
BUFFER TO THE CHARACTERS "1" AND "2". 

IF THE CHARACTER IS "1" CLEAR THE FLAG 

;1F THE CHARACTER IS "2" SET THE FLAG 


INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MSYNC ; MESSAGE 


CMPB #'1, INBUF 1g i “F" Tt 
BNE 1$ 

CLRB SYNCNO ;000 

BR 4$ P 
CMPB #'2, INBUF 208 07 "2" 7 
BNE 2$ 

MOVB #-1, SYNCNO +377 

BR 4$ 

INSTER ; RETRY 

BR 3$ 

NOP 


INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MWIREG + MESSAGE 

SETFLG ;SET FLAG BASED UPON INPUT STRING 

SEXMIT ; THIS FLAG 

INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MWIRES ; MESSAGE 

SETFLG ;SET FLAG BASED UPON INPUT STRING 

SEREC ;THIS FLAG 

INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MWIREY ; MESSAGE 

SETFLG ;SET FLAG BASED UPON INPUT STRING 

OPTCLR ; THIS FLAG 

INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MEXTJ  ;MESSAGE 

SETFLG ;SET FLAG BASED UPON INPUT STRING 

JMRBY =; THIS FLAG 


; TEST START AND RESTART 


MOV #STACK, SP SET UP STACK 

MTPS #340 LOCK OUT INTERRUPTS 

BIT #SWO1, dSWR ;1F SWO1=1, GET STARTING PC 
BEQ 


3$ 
INSTR ; OUTPUT MESSAGE & GET INPUT STRING 
MTSTPC > MESSAGE 
PARAM ;CONVERT STRING 
TST1 + LOW pet 


17500 =;xIGH LIMIT 

STSTNM ; STORE ar THIS LOCATION 

1 ; MASK 

1 ;HOW MANY TIMES + 2 

MoV STSTNM. RETURN 

BR 4§ 

MOV #TST1,RETURN +START AT TEST 1 
TYPE MR ; TYPE R 

JmP ORE TURN START TESTING 
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++ THIS TEST CHECKS THE STRIP SYNC FUNCTION 
+;O0F THE on Naa LOGIC 

++ MODE: SYN 

++ LENGTH: E| IGHT 

++NOTE: RXDONE SHOULD NEVER ASSERT 

++CHAR: 26 (SYNC) 


j; XEUUNAEESUAESSOAESSSANESEAASSSUASS OSES DAAAEDOAATEOAT SONATE 
1 

BIS #MRESET.OTXCSR ; MASTER RESET 

MOV #SYNINT, @PARCSR >; SET THE MODE 

BIS @MRESET,ATXCSR ;MASTER RESET 


;SET MAINT DATA, CLK, BREAK, &MAINTENANCE MODE 
MOV SMTDATA!CLK! MINT! BREAK. ATXCSR 


;SET MODE .# OF BITS,PARITY SENSE,&LOAD SYNC REG 
MOV R#SYNINT!E 1GHT!NOPAR ! 26, @PARCSR 
BiS ®SYNSCH, ARXCSR ;SET SYNC SEARCH 
/POKE CLK TO GET RECEIVER INTO SYNCROIZATION. .. 
Bic #CLK, aTXCSR *POKE CLK DOWN 
BIS #CLK, @TXCSR +POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, @TXCSR +POKE CLK DOWN 
BIS #CLK, ATXCSR +POKE CLK UP 
BIS RSTPSYN, ARXCSR -;SET STRIP SYNC 
MOV #3, COUNT ;# OF SYNC CHARS 


15: Mov #26, STMP1 ;CHAR TO BE SHIFTED 
MOV #8., SHIFT ;# OF SHIFTS 
JSR PC, RPOKE ;SHIFT IN THIS CHAR 
TSTB ORXCSR ;RXDONE ? 
BPL . +4 
ERROR 4 ;RXDONE SHOULD NOT BE ASSERTED 
~s ee 8 OF SYNC CHARS 
BN 1 


;; THIS TEST PROVES THAT RXERR FREEZES THE “RECEIVER RESET” 
;;WHILE IN STRIP SYNC MODE 

>; THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN 
>: STRIP SYNC 1S SET & SYNC CHARACTERS ARE SENT 

Be oi BUT IF AN ERROR SHOULD OCCUR.... THIS AUTOMATIC RESET 
3; 1S DISCOMBOBULATED 

7; 1E. FORCE PARITY ERROR WHILE STRIP SYNC IS SET 

;;NOTE: NORMALLY THE LOGIC RESETS THE RXDONE &ERROR FLAGS 
;;PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SENT... 

;;BUT. IF AN RXERR OCCURS RXDONE PLUS RXERR ARE ASSERTED 
;;MODE: ISOC CISYA0D) 

;;LENGTH: EIGHT 

;;PARITY: EVEPAR 

3; CHARACTER EXPECTED: 26 

,; CHARACTER SENT: SYNC CHARACTER 

;- NOTE: THIS TEST USES ONLY THE RECEIVER LOGIC 


eT iTititittttittitittittttittittitsttittititsititt ttt t tat tit ttt 


TST2: SCOPE 
BIS #MRESET, dTXCSR -MASTER RESET 


SEQ 0030 


r US 4 
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1401 003554 012777 QOO000C 176140 MOV #ISYMOD. @PARCSR ; SET THE MODE 

at 003562 052777 O0O400 176136 BIS MMRESET.@TXCSR ;MASTER RESET 

1404 ;SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 

nak 003570 012777 064001 176130 MOV #MTOATA!CLK! MINT! BREAK, ATXCSR 

1407 ;SET MODE .# OF BITS. PARITY SENSE. &LOAD SYNC REG 

1408 003576 012777 007426 176116 MOV # ISYMOD!'E IGHT!EVEPAR ! 26. @PARCSR 

1409 003604 016703 176106 MOV RXDBUF. R3 +SET UP FOR ERROR MSG 

1410 003610 012767 O00003 175306 MOV #3, COUNT .2# OF TIMES SYNC CHAR WILL BE SENT 

1411 003616 052777 000020 176066 BIS #SYNSCH. ARXCSR ;SET SYNC SEARCH 

1412 ;POKE CLK TO GET RECEIVER INTO tg + get 

1413 003624 042777 020000 176074 Bic #CLK, ATXCSR +POKE CLK DOWN 

1414 003632 052777 020000 176066 BIS #CLK, ATXCSR ;POKE CLK UP 

1415 +POKE CLK TO GET LOGIC INTO SYNCRONIZATION 

1416 003640 042777 020000 176060 BIC #CLK, aTXCSR +POKE CLK DOWN 

1417 003646 052777 020000 176052 BIS #CLK. @TXCSR +POKE CLK UP 

1418 003654 052777 OO0O400 176030 BIS RSTPSYN, ARXCSR ;SET STRIP SYNC 

1419 003662 012767 000013 175232 2%: MOV #11. , SHIFT +# OF SHIFTS 

1420 003670 012767 003054 175602 MOV #3054, STMP1 +SYNC CHAR + START&STOP+ PARITY 

1421 003676 CO4767 013244 1$: JSR PC, RPOKE + SHIFT IN THIS CHARACTER 

1422 003702 105777 176004 TSTB @RXCSR ;RXDONE = 0 ? 

1423 003706 100001 BPL . +4 

1424 003710 104004 ERROR 4 +RXDONE SHOULD NOT BE SET 

1425 003712 005367 175206 DEC COUNT ;# OF SYNC CHARS 

1426 003716 001361 BNE 2$ >GO AGAIN ? 

1427 003720 012700 O000U26 MoV #26.RO ;EXPECTED 

1428 003724 617701 175766 MoV ORXDBUF.R1 + ACTUAL 

1429 ;NOTE THAT THIS IS THE FIRST TIME 

1430 +RXDBUF IS READ....... THERE SHOULD BE 

143i NO. OVER RUN ERROR 4S 

1432 003730 020001 CMP RO.R1 ;COMPARE EXPECTED VS ACTUAL 

1433 003732 001401 BEQ _ +4 

1434 003734 104002 ERROR 2 DATA CHARS SHOULD COMPARE 

1435 ; THERE SHOULD BE NO RXERR'S 

1436 003736 012767 O00004 175160 MOV #4, COUNT ;# OF TIMES 

1437 003744 012700 110026 MOV #RXERR !PARER ! 26, RO + EXPECTED 

1438 003750 012767 002054 175522 MOV #2054, STNP1 ;BAD SYNC CHAR (WRONG PARITY) 

1439 003756 012767 OOO013 175136 3%: MoV #11. SHIFT +# OF SHIFTS 

1440 003764 004767 013156 JSR PC, RPOKE ;SHIFT IN THIS CHAR 

1441 003770 105777 175716 TSTB a *RXDONE = 1? 

1442 003774 100401 BMI ; 

1443 003776 104004 ERROR +RXDONE SHOULD BE SET 

1444 OO04000 017701 175712 MOV JRXDBUF RI ACTUAL DATA 

1445 004004 020001 CMP . Ri ;COMPARE EXP VS ACT 

1446 004006 001401 BEQ 

1447 004010 104000 ERROR :d1D THE RESPECTIVE ERROR 4 STOP THE 

1448 AUTOMATIC RESSETING OF RXDONE & ERROR FLAGS 

1449 Bs 2 es CHECK THIS..... 

1450 004012 005367 175106 DEC COUNT ;# OF SYNC CHARS 

1451 004016 001445 BEQ 5$ ;FINISHED ? GET OUT OF TEST 

1452 004020 022767 O00003 175076 CMP #3, COUNT ;# OF SYNC CHARS 

1453 004026 001423 BEQ 6$ + CHECK —s ERROR ? 

1454 004030 022767 000002 175066 CMP #2, COUNT # OF SYNC CHARS 

1455 004036 001426 BEQ 74% > CHECK FRAME ERROR & BAD PARITY 7 


1456 >NOPE THEN IT (COUNT) MUST BE = 1 THEREFORE 





ee ee C$ a Oe se 
a ee CC ee eee 
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1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 


004040 
004046 
004054 


004060 
004066 
004072 
004076 
004104 
004110 
004114 
004122 
004126 
004132 


004132 
004134 
004142 
004150 


004156 


004164 
004172 
004176 
004 204 


004212 
004220 


004226 
004234 
004242 
004250 


012767 
012767 
004 767 


012767 
012700 
000167 
012767 
012700 
000167 
012767 
012700 
000167 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
012767 
052777 


042777 
052777 


042777 
052777 
052777 
012767 


G 3 
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000013 
000054 
013066 


000054 
170026 
177660 
001054 
120026 
177642 
000054 
130026 
177624 


000400 
000000 
000400 


064001 


005626 
175520 
000003 
000020 


020000 
020000 


020000 
020000 
000400 
000012 


175054 
175424 


175412 


175374 


175356 


175564 
175552 
175550 


175542 


175530 


174720 
175500 


175506 
175500 


175472 
175464 
175442 
174644 


INITIALIZE THE COMMON TAGS 


MOV #11., SHIFT +# OF SHIFTS 
MOV #54, STMP1 FRAME & PARITY ERROR 


JSR PC, RPOKE ; SHIFT IN THIS CHAR 
NOW DON'T READ THE RXDBUF TO CREATE OVER RUN 
MOV #54, STMP1 ;FRAME & PARITY ERROR 
MOV RXERR!OVRRUN!FRMERR !PARER ! 26, RO + EXPECTED 
JMP 3$ +00 IT AGAIN 
6$: MOV #1054, STMP1 ;BAD STOP BIT FOR FRAME ERROR 
MOV #RXERR!FRMERR! 26, RO + EXPECTED 
JMP 3$ +00 IT AGAIN 
7$: MOV #54, STMP1 ;BAD STOP BIT & PARITY 
MOV @RXERR!FRMERR '!PARER ! 26, RO ; EXPECTED 
5 JMP 3$ D0 IT AGAIN 


3; THIS TEST PROVES THAT RXERR FREEZES THE “RECEIVER RESET” 

;;WHILE IN STRIP SYNC MODE 

3; THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN 

;;STRIP SYNC IS SET & SYNC CHARACTERS ARE SENT 

;3..... BUT IF AN ERROR SHOULD OCCUR.... THIS AUTOMATIC RESET 

,»> 1S DISCOMBOBULATED 

5, 1E. FORCE PARITY ERROR WHILE STRIP SYNC IS SET 

>;NOTE: NORMALLY THE LOGIC RESETS THE RXDONE oe FLAGS 

»>PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SENT 

;,BUT. IF AN PXERR OCCURS RXDONE PLUS RXERR ARE ASSERTED 

;;MODE: ISOC © ISYMOD) 

;; LENGTH: SEVEN 

»;PARITY: EVEPAR 

>; CHARACTER EXPECTED: 226 
;NOTE THAT THE PARITY BIT SHOULD SHOW 
;UP IN THE DATA 1€. BIT SEVEN FOR 
; SEVEN LEVEL CODE 

>; CHARACTER SENT: SYNC CHAPACTER 

;;NOTE: THIS TEST USES ONLY THE RECEIVER LOGIC 


MET titiittitttttet ttt ittttttttittsettttttttittsitti tet tits it) 
TST3: SCOPE 

BIS SMRESET, @TXCSR {MASTER RESET 

MoV #ISYMOD, APARCSR ;SET THE MODE 

BIS #MRESET,dTXCSR ;MASTER RESET 


;SET MAINT DATA, CLK. BREAK, BMAINTENANCE MODE 
MOV #MTDATA'CLK! MINT! BREAK, dTXCSR 


;SET MODE .# OF BITS. PARITY SENSE,&LOAD SYNC REG 
MOV # ISYMOD! SEVEN! EVEPAR !226. dPARCSR 
MOV RXDBUF. R3 +SET UP FOR ERROR MSG 
MOV #3, COUNT + OF TIMES SYNC CHAR WILL BE SENT 
BIS RSYNSCH, ARXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROI ZATION 
BIC #CLK, ATXCSR +POKE CLK DOWN 
BIS #CLK, ATXCSR +POKE CLK UP 

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, ATXCSR ;POKE CLK DOWN 
BIS #CLK, @TXCSR *+POKE CLK UP 
BIS RSTPSYN, @ARXCSR ;SET STRIP SYNC 

28: MOV #10. SHIFT ;# OF SHIFTS 


SEQ 0032 


| 
ed 
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DZ2DUTB. M11 


004256 
004264 
004270 
004274 
004276 
004300 
004 304 
004 306 
004312 


004316 
004320 
004322 


004324 
004332 
004336 
004 344 
004 352 
004 356 
004 362 
004 364 
004 366 
004372 
004374 
004376 


004400 
004404 
004406 
004414 
004416 
004424 


004426 
0044 34 
004442 


004446 
004454 
004460 
004464 
004472 
004476 
004502 
004510 
004514 
004520 
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012767 
004767 
105777 
100001 
104004 
005367 
001361 
012700 
017701 


020001 
001401 
104002 


012767 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104000 


005367 
001445 
022767 
001423 
022767 
001426 


012767 
012767 
004767 


012767 
012700 
000167 
012767 
012700 
000167 
012767 
012700 
000167 


001454 
012656 
175416 


174620 


000226 
175400 


000004 
110026 
001054 
000012 
012570 
175330 


175324 


174520 
000003 
000002 


000012 
000054 
012500 


000054 
170026 
177660 
000454 
120226 
177642 
00054 
130026 
177624 


2i- es 77 09:18 PAGE 


H 3 


35 
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175214 


174572 
175134 


174550 3%: 


174510 
174500 
174466 
175036 


iN 
175024 


175006 6%: 


174770 7%. 


MoV #1454, STMP1 ; SYNC CHAR + START&STOP+ PARITY 
JSR PC, RPOKE agg 4 IN THIS CHARACTER 
TSTB ORXCSR ;RXDONE = O ? 
BPL _ +4 
ERROR 4 ;RXDONE SHOULD NOT BE SET 
DEC COUNT ;# OF SYNC CHARS 
BNE 23 ;GO AGAIN ? 
MOV #226,.R0 ; EXPECTED 
MOV ORXOBUF,R1 > ACTUAL 
>NOTE THAT THIS IS THE FIRST TIME 
>RXOBUF IS READ....... THERE SHOULD BE 
;NO OVER RUN ERROR 4S 
id RO. R1 ; COMPARE EXPECTED VS ACTUAL 
_ +4 
ERROR 2 ;DATA CHARS SHOULD COMPARE 
; THERE —_ BE NO RXERR'S 
MOV #4, COUNT # OF TIMES 
MoV #RXERR'PARER ! 26, RO > EXPECTED 
MOV #1054, STMP1 ;BAD SYNC CHAR (WRONG PARITY) 
MOV #10..SHIFT ;# OF SHIFTS 
JSR PC, RPOKE ; SHIFT IN THIS CHAR 
TSTB ORXCSR ;RXDONE = 1? 
BNI +4 
ERROR u ;RXDONE SHOULD BE SET 
MOV @RXOBUF, R1 ;ACTUAL DATA 
CMP RO,R1 ; COMPARE EXP VS ACT 
BEQ +4 
EPROR ;DID THE RESPECTIVE ERROR 4 STOP THE 
Niewiaay >< —— OF RXDONE & ERROR FLAGS 
eee CHECK. THIT. ...<- 
: NOTE THAT THE PARITY BIT SHOULD 
: SHOW UP IN THE DATA 
;1€. BIT SEVEN FOR SEVEN LEVEL CODE 
DEC COUNT ;# OF SYNC CHARS 
BEQ 55 ;FINISHED ? GET OUT OF TEST 
CMP #3, COUNT ># OF SYNC CHARS 
BEQ 6$ > CHECK FRAME ERROR ? 
CMP #2, COUNT 7# OF SYNC CHARS 
BEQ 7$ ;CHECK FRAME ERROR & BAD PARITY ? 
;NOPE THEN IT (COUNT) MUST BE = 1 THEREFORE... 
nov #10., SHIFT 7# OF SHIFTS 
MOV 354, STHPA ; FRAME & PARITY ERROR 
JSR PC, RPOKE ;SHIFT IN THIS CHAR 
OW DON'T READ THE RXDBUF TO CREATE OVER RUN 
MOV #54, STMP1 ; FRAME & PARITY ERROR 
MOV #RXERR! OVRRUN'FRMERR !PARER ! 26, RO > EXPECTED 
JMP 33 ;00 IT AGAIN 
Mov #454, STMP1 ;BAD STOP BIT FOR FRAME ERROR 
MoV #RXERR'FRMERR ! 226. RO “EXPECTED 
JMP 3$ ;D0O IT AGAIN 
MoV #54, STMP1 ;BAD STOP BIT & PARITY 
MOV @RXERR'FRMERR'PARER ! 26, R0 > EXPECTED 
JMP 3$ ;D00 IT AGAIN 


5S: 
>, THIS TEST PROVES THAT RXERR FREEZES THE “RECEIVER RESET” 
>, WHILE IN STRIP SYNC MODE 


ie ere: 


SEQ 0033 | 





= — a 
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1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 


004520 
004522 
004530 
004536 


004544 


004552 
004560 
004564 
004572 


004600 
004606 


004614 
004622 
004630 


004700 


004704 
004706 
004710 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
012767 
052777 


042777 
052777 


042777 
052777 
052777 
012767 
012767 
004767 
105777 
100001 
104004 
005367 
001361 
012700 
017701 


020001 
001401 
104002 


21-SEP-77 09: 
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000400 
000000 
000400 


064001 


003526 
175132 
000003 
000020 


020000 
020000 


020000 
020000 
000400 
000011 
000654 
012270 
175030 


174232 


000126 
175012 


175176 
176164 
175162 


175154 


175142 


174332 
175112 


175120 
175112 


175104 
175076 
175054 
174256 
174626 


1 3 
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++ THIS TEST FIRST PROVES THAT AUTOMATIC gp OCCUR WHEN 
++ STRIP SYNC IS SET & SYNC oy we ARE SENT 
islet a BUT IF AN ERROR SHOULD OCCUR.... THIS AUTOMATIC RESET 
518 DISCOMBOBULATED 
>; 1E. FORCE PARITY ERROR WHILE STRIP SYNC IS SET 
>;NOTE: NORMALLY THE LOGIC RESETS THE RXDONE ot FLAGS 
;;PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SENT 
;;BUT, IF AN RXERR OCCURS RXDONE PLUS RXERR ARE ASSERTED 
+;MODE: ISOC CISYMOD) 
;;LENGTH: SIX 
»>PARITY: EVEPAR 
>; CHARACTER EXPECTED: 126 
;NOTE THAT THE PARITY BIT SHOULD SHOW 
;UP IN THE DATA 1E. BIT SiX¥ FOR 
;SIX LEVEL CODE 
; CHARACTER SENT: SYNC CHARACTER 
: NOTE THIS TEST USES ONLY THE RECEIVER LOGIC 


Pettttttitttitttttttttittttttttttitttt ttt tttttttt ttt tt ttt ttt ttt} 
SCOPE 


TSTu: 
BiS RMRESET,@TXCSR ;MASTER RESET 
MOV #ISYMOD, @PARCSR ;SET THE MODE 
BIS RMRESET, dTXCSR ; MASTER RESET 


; SET MAINT DATA, CLK, BREAK, MAINTENANCE MODE 
MOV #MTDATA!CLK! MINT! BREAK, dTXCSR 


;SET MODE .# OF BITS,PARITY SENSE.&LOAD SYNC REG 
MOV # ISYMOD!'SIX!EVEPAR!126, dPARCSR 
MoV RXDBUF, R3 +SET UP FOR ERROR MSG 
MOV #3. COUNT ;# OF TIMES SYNC CHAR WILL BE SENT 


BIS #SYNSCH, ARXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION. .. 
BIC #CLK. ATXCSR ;POKE CLK DOWN 
BIS #CLK. dTXCSR ;POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, ATXCSR ;POKE CLK DOWN 
BIS #CLK, @TXCSR ;POKE CLK UP 
BIS #STPSYN, aRXCSR ;SET STRIP SYNC 
25. MOV #9., SHIFT ;# OF SHIFTS 
MoV #654, STMP1 ;SYNC CHAR + START&STOP+ PARITY 
1: JSR PC, RPOKE ; SHIFT IN THIS CHARACTER 
TSTB @RXCSR ;RXDONE = 0 ? 
BPL . +4 
ERROR 4 ;RXDONE SHOULD NOT BE SET 
DEC COUNT ;# OF SYNC CHARS 
BNE 23 ;GO AGAIN ? 
MoV #126,.R0 ; EXPECTED 
MOV ORXDBUF,R1 ; ACTUAL 
;NOTE THAT THIS IS THE FIRST TIME 
;RXDBUF IS READ....... THERE SHOULD BE 
;NO OVER RUN ERROR 4S 
CMP RO, R1 ,COMPARE EXPECTED VS ACTUAL 


8 Te 
ERROR 2 DATA CHARS SHOULD COMPARE 
; THERE SHOULD BE NO RXERR'S 


SEQ 0034 


: 
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004712 
004720 
004724 
004732 
004740 
004744 
004750 
004752 
004754 
004760 
004762 
004764 


004766 
004772 
004774 
005002 
005004 
005012 


005014 
005022 
005030 


005034 
005042 
005046 
005052 
005060 
005064 
005070 
005076 
005102 
005106 


21- * am “77 GP. ¥ PAGE 37 


J 3 a 7 ; ] 
| 


31-MAY-77 09:4 INITIALIZE THE COMMON TAGS SEQ 0035 
012767 OO00004 174204 MOV #4, COUNT # OF TIMES 
012700 110026 MOV @RXERR!PARER ! 26, 20 EXPECTED 
012767 OOO4S4 174546 MoV #454, STMP 1 +BAD SYNC CHAR (WRONG PARITY) 
012767 OO0Oii 174162 3%: MoV #9., SHIFT +# OF SHIFTS 
004767 012202 JSR PC, RPOKE +SHIFT IN THIS CHAR 
105777 174742 TSTB —_— +RXDONE = 17 
100401 BNI 
104004 ERROR ; RXDONE yg or BE My 
017701 174736 MOV IRxOBU F,R1 ACTUAL DAT 
020001 CMP RO.R1 ;COMPARE EXP “NS ACT 
001401 BEQ . +4 
104000 ERROR ;OID THE RESPECTIVE ERROR 4 STOP THE 
* AUTOMATIC 6: Mey OF RXDONE & ERROR FLAGS 
¥e ; NOTE THAT THE Pra BIT SHOULD 
;SHOW UP IN THE DATA 
+1€. BIT SIX FOR SIX LEVEL CODE 
005367 174132 DEC COUNT ;®# OF SYNC CHARS 
001445 BEQ 5% FINISHED ? GET OUT OF TEST 
022767 O90003 174122 CMP #3, COUNT ;# OF SYNC CHARS 
001423 BEQ 6$ + CHECK FRAME ERROR ? 
022767 OO00002 174112 CMP #2, COUNT # OF SYNC CHARS 
001426 BEQ 7$ ; CHECK FRANE ERROR & BAD PARITY ? 
;NOPE THEN IT (COUNT) MUST BE = 1 THEREFORE.... 
012767 000011 174100 MOV #9. , SHIFT 7# OF SHIFTS 
012767 OOCOS4 174450 MOV #54, STMP1 ;FRAME & PARITY ERROR 
004767 012112 JSR PC, RPOKE ;SHIFT IN THIS CHAR 
;NOW DON'T READ THE RXDBUF TO CREATE OVER RUN 
012767 O00054 174436 MoV #54, STMP1 FRAME & PARITY ERROR 
012700 170026 MOV #RXERR ! OVRRUN! FRMERR !PARER ! 26, RO + EXPECTED 
000167 177660 JMP 3$ ;D0 IT AGAIN 
012767 000254 174420 65%: MoV #254, STMP1 +BAD STOP BIT FOR FRAME ERROR 
012700 120126 MoV @RXERR!FRMERR!126. RO + EXPECTED 
000167 177642 JMP 3$ +00 1T AGAIN 
012767 000054 i74402 7%: MOV #54, STMP1 ;BAD STOP BIT & PARITY 
012700 130026 MOV #RXERR!FRMERR!PARER ! 26, RO + EXPECTED 
000167 177624 JMP 3$ ;D0 IT AGAIN 


5S: 

;: THIS TEST PROVES THAT RXERR FREEZES THE "RECEIVER RESET” 

;;WHILE IN STRIP SYNC MODE 

>; THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN 

‘epnated SYNC IS SET & SYNC CHARACTERS ARE SENT 

Ig BUT IF AN ERROR SHOULD OCCUR.... THIS AUTOMATIC RESET 

;1S DISCOMBOBULATED 

Cie. FORCE PARITY ERROR WHILE STRIP SYNC IS SET 

;;NOTE: NORMALLY THE LOGIC RESETS THE RXDONE &ERROR FLAGS 

;;PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SENT.... 

;;BUT. IF AN RXERR OCCURS RXDONE PLUS RXERR ARE ASSERTED 

;;MODE: ISOC (ISYMOD) 

>;LENGTH: FIVE 

;;PARITY: EVEPAR 

> CHARACTER EXPECTED: 66 
;NOTE THAT THE PARITY &!T SHOULD SHOW 
;UP IN THE DATA '€. BIT FIVE FOR 
;FIVE LEVEL CODE 

;; CHARACTER SENT: SYNC CHARACTER 
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005106 
005110 
005116 
005124 


005132 


005140 
005146 
005152 
005160 


005166 
005174 


005202 
005210 
005216 
005224 
005232 
005240 
005244 
005250 
005252 
005254 
005260 
005262 
005266 


005272 
005274 
005276 


005300 


005352 


21-SEP-77 09: 
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000004 
052777 
012777 
052777 


012777 


012777 
016703 
012767 
052777 


042777 
052777 


042777 
052777 
052777 
012767 
012767 
004767 
105777 
100001 
104004 
005367 
001361 
012700 
017701 


020001 
001401 
104002 


012767 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104000 


000400 
000000 
000400 


064001 


001466 
174544 
000003 
000020 


020000 
020000 


020000 
020000 
000400 
000010 
000354 
011702 
174442 


173644 


000066 
174424 


000004 
110026 
000254 
000010 
011614 
174354 


174350 


174610 
174576 
174574 


174566 


174554 


173744 
174524 


174532 
174524 


174516 
174510 
174466 
173670 
174240 


173616 


174160 
173574 


K 3 
8 
INITIALIZE THE COMMON TAGS 
++ NOTE: THIS TEST USES ONLY THE RECEIVER LOGIC 
;; SESUAEESSAESSSUNESSONASSAESSSAAEESUASSSNSEOUNETSOAALEOOALESAE 


TSTS: 
BIS WMRESET,@TXCSR ; MASTER RESET 
MOV #ISYMOD, @PARCSR ; SET THE MODE 
BIS #MRESET,QTXCSR ;MASTER RESET 


;SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 
MOV #MTDATA!CLK! MINT! BREAK, dTXCSR 


+ SET roay -# OF BITS, PARITY SENSE. &LOAD SYNC REG 
MOV #ISYMOD!F IVE !EVEPAR !66, OPARCSR 
MOV RXDBUF. R3 +SET UP FOR ERROR MSG 
MoV #3, COUNT +# OF TIMES SYNC CHAR WILL BE SENT 
BIS RSYNSCH, ARXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION... 
BIC #CLK, OTXCSR +POKE CLK DOWN 
BIS #CLK, ATXCSR +POKE CLK UP 
+>POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
Bic #CLK, aTXCSR +POKE CLK DOWN 
BIS #CLK. @TXCSR +POKE CLK UP 
BIS RSTPSYN. ARXCSR ;SET STRIP SYNC 


18 PAGE 3 


23: MoV #8. , SHIFT ;# OF SHIFTS 
MOV #354, STMP1 >;SYNC CHAR + START&STOP+ PARITY 
1S: JSR PC, RPOKE ;SHIFT IN THIS CHARACTER 
Hi bg "on ;RXDONE = 0 ? 
L 
ERROR ;RXDONE SHOULD NOT BE ScT 
DEC COUNT ;# OF SYNC CHARS 
BNE 23 ;GO AGAIN ? 
MOV #66,RO0 ;EXPECTED 
MOV OR XOBUF, R1 ; ACTUAL 
;NOTE THAT THIS IS THE FIRST TIME 
_.ERXOBUF IS READ....... THERE SHOULD BE 
' 3NO OVER RUN ERROR 4S 
CMP RO.R1 ; COMPARE EXPECTED VS ACTUAL 
BEQ . +4 
ERROR 2 +DATA CHARS SHOULD COMPARE 
> THERE SHOULD BE NO RXERR'S 
MoV #4, COUNT ;# OF TIMES 
MOV #RXERR 'PARER ! 26, RO ; EXPECTED 
MOV #254, STMP1 ;BAD SYNC CHAR (WRONG PARITY) 
3S: Mov #8... SHIFT 7*# OF SHIFTS 
JSR PC, RPOKE ;SHIFT IN THIS CHAR 
io "ae ;RXDONE = 1? 
Ml 
ERROR ;RXDONE SHOULD BE SET 
MOV SRXDBUF 21 ; ACTUAL CATA 
CMP RO. R1 ; COMPARE EXP VS ACT 
BEQ -. +4 
ERROR ;DID THE RESPECTIVE ERROR 4 STOP THE 


; RUTOMAT IC RESSETING OF RXDONE & ERROR FLAGS 
“NOTE THAT THE Pan ity BIT SHOULD 
;SHOW UP IN THE DATA 


— 
SEQ 0036 
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1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 


005354 
005360 
005362 
005370 
005372 
005400 


005402 
005410 
005416 


005422 
005430 
0054 34 
005440 
005446 
005452 
005456 
005464 
005470 
005474 


005474 
005476 
005504 
005512 


005520 


005526 
005534 
005540 
005546 
005554 


005562 
005570 


31-MAY-77 09:4 


005367 
001445 
022767 
001423 
022767 
001426 


012767 
012767 
004767 


012767 
012700 
000167 
012767 
012700 
000167 
012767 
012700 
000167 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


173544 
000003 
000002 


000010 
000054 
011524 


000054 
170026 
177660 
000154 
120066 
177642 
000054 
130026 
177624 


000400 
030000 
000400 


004020 


030026 
174166 
000021 
000021 
000005 


020000 
020000 


173674 
602000 


* piew 09: 


173534 


173524 


173512 
174062 


174050 


174032 


174014 


174222 
174210 
174206 


174200 


174166 


174164 
173724 
173340 


174136 
174130 
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INITIALIZE THE COMMON TAGS 


+1E. BIT FIVE FOR FIVE LEVEL CODE 
DEC COUNT ;# OF SYNC CHARS 


BEQ 5$ +FINISHED ? GET OUT OF TEST 
CMP #3, COUNT ;# OF SYNC CHARS 
BEQ 6$ + CHECK FRAME ERROR ? 
CMP #2, COUNT + OF SYNC CHARS 
BEQ 7$ + CHECK FRAME ERROR & BAD PARITY ? 
*+NOPE THEN IT (COUNT) MUST BE = 1 THEREFORE.. 
MOV #8... SHIFT # OF SHIFTS 
MoV #54, STHPA ; FRAME & PARITY ERROR 
JSR PC, RPOKE + SHIFT IN He CHAR 
;NOW DON'T READ Lin RXDBUF TO CREATE OVER RUN 
MOV 4, STMP1 FRAME & PARITY ERROR 
MOV GRXERR! OURRUN!FRHERR | PARER '26, RO + EXPECTED 
JMP 3$ +00 IT AGAIN 
6S: MOV #154, STMP1 ;BAD STOP BIT FOR FRAME ERROR 
MOV #RXERR!FRMERR ! 66, RO + EXPECTED 
JMP 3$ ;DO0 IT AGAIN 
7%: MOV #54, STMP1 +BAD STOP BIT & PARITY 
MOV #RXERR!FRMERR !PARER ! 26, RO + EXPECTED 
- JMP 3$ +00 IT AGAIN 


3; THIS TEST VERIFYS WORD LENGTH SELECT OF 

3; THE TRANSMITTER SECTION, IT USES THE DONA FLAG 
;;AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
+; CORRECTLY 

;;NOTE: DONA COMES UP ON THE FIRST RISING BIT 

;;EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
;;LOADED INTO TXDBUF 

>; MODE: SYNINT 

;;PARITY: NO PARITY 

>; LENGTH: FIVE 


pe $$ 3992295999 9099959599959 9995559022092 99 022220528 9202028990 98 8 | 
TST6: SCOPE 

BIS #MRESET,@TXCSR ;MASTER RESET 

MoV RSYNINT, @PARCSR ;SET THE MODE 

BIS @MRESET.@TXCSR -;MASTER RESET 


; SET MAINTENANCE MODE & SEND 
NOTE: BIT WINDOW&CLK ARE CLEARED (MTDATA=0) 
Mov #MINT! SEND, aTXCSR 


;SET MODE, # OF BITS,PARITY SENSE.& LOAD SYNC REG 
MOV @SYNINT!F IVE !NOPAR ! 26, dPARCSR 
MoV TXCSR, RZ +SET UP FOR ERROR MSG 
MOVB #21, @TXOBUF *+LOAD CHAR 
MOV #21, STMP1 + SHIFTED CHAR 
MOV #5, SHIFT :# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, ATXCSR +POKE CLK UP 
BIC #CLK, A@TXCSR *POKE CLK DOWN 
1$: CLR RO 
ROR STMP1 ;FORCE CARRY 


2$ 
BIS #BITW.RO /EQUIV OF BIT WINDOW 


SEQ 0037 
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005612 
005612 
005620 
005626 
005632 
005636 
005640 
005642 


005644 
005650 


005652 
005660 
005664 
005670 
005674 
005676 
005700 


005702 
005706 
005710 


005712 
005714 
005722 
005730 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


005777 
100001 
104004 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 


Mn 3 


21-SEP-77 09:18 PAGE 40 
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020000 
020000 
174074 
075777 


173252 


020000 
100000 
174036 
077777 


174020 


000400 
030000 
000400 


004020 


032026 
173750 
000021 
000021 
000006 


020000 


174106 
174100 


174046 


174004 
173772 
173770 


173762 


173750 
173746 
173506 
173122 


173720 


INITIALIZE THE COMMON TAGS 


23: 
BIS CLK, aTXCSR +POKE CLK UP 
BIC #CLK, ATXCSR +POKE CLK DOWN 
MOV OTXCSR, R1 + ACTUAL 
BIC #075777.R1 ;SAVE BITW & DONA 
yA em + COMPARE EXP VS ACT 
x. 
ERROR 3 ;B1T WINDOW DID NOT MATCH ACTUAL DATA 


;BIT..... ALSO CHECK DNA 
DEC SHIFT ;# OF SHIFTS 


BNE 1$ +00 IT AGAIN ? 
*NOW POKE CLK TO SEE DNA 
BIS #CLK, ATXCSR +POKE CLK 


MOV #100000. RO + EXPECTED 

MOV OTXCSR,R1 4g 

BIC #77777.R1 SAVE DNA ONLY 

ys RO.R1 ;COMPARE EXPECTED VS ACTUAL 
. +4 

ERROR 3 ;DNA SHOULD BE SET 


; 1F ONA DID NOT SET . CHECK WORD LENGTH 
+ SELECT LOGIC OF THE vermeaes TGs : 

TST aTXCSR ;DNA ? 

BPL _ +4 

ERROR 4 ;DNA SHOULD NOT BE SET 
; IT SHOULD HAVE BEEN CLEARED FROM 
;PREVIOUS READ 


3; THIS TEST VERIFYS WORD LENGTH SELECT OF 

3; THE TRANSMITTER SECTION, IT USES THE DNA FLAG 
;;AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
;; CORRECTLY : 

;;NOTE: DNA COMES UP ON THE FIRST RISING BIT 

;;EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
;,LOADED INTO TXOBUF 

++ MODE: SYNINT 

;;PARITY: NO PARITY 

+; LENGTH: SIX 


ETT Tiititittttttttttt ttt tetttt titi titi tttttt titi tse itt s ttt tee 
COPE 


TST?: 
BIS #MRESET,dTXCSR ; MASTER RESET 
MOV #SYNINT, @PARCSR ; SET THE MODE 
BIS @MRESET,@TXCSR -; MASTER RESET 


> SET MAINTENANCE MODE & SEND 
NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
nov #1 INT! SEND, ATXCSR 


;SET MODE.# OF BITS.PARITY SENSE.& LOAD SYNC REG 
MoV #SYNINT!SIX!NOPAR ! 26, APARCSR 
Mov TXCSR, RI +SET UP FOR ERROR MSG 
MOVB #21, aTXDBUF +LOAD CHAR 
MOV #21, STMP1 + SHIFTED CHAR 
Mov #6. SHIFT +# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, ATXCSR +POKE CLK UP 


SEQ 0038 


N 3 
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DZDUTB. M11 3i-MAY-77 09:49 INITIALIZE THE COMMON TAGS SEQ 0039 
1849 006006 042777 O20000 173712 BIC #CLK, @TXCSR ;POKE CLK DOWN 
1850 006014 005000 15: CLR RO - 
1851 006016 O06067 173456 ROR STMP1 + FORCE CARRY 
1852 006022 103002 BCC 23 
1853 006024 052700 002000 BIS #B ITH, RO sEQUIV OF BIT WINDOW 
1854 006030 23: 
1855 006030 052777 020000 173670 BIS #CLK, ATXCSR +POKE CLK UP 
1856 006036 042777 O20000 173662 BIC #CLK, ATXCSR +POKE CLK DOWN 
1857 006044 017701 173656 MOV @TXCSR, R1 + ACTUAL 
1858 006050 042701 075777 BIC #075777,R1 >; SAVE BITW & DNA 
1859 006054 020001 CMP RO, R1 + COMPARE EXP VS ACT 
1860 006056 001401 BEQ . +4 
1861 006060 104003 ERROR 3 +BIT WINDOW DID NOT MATCH ACTUAL DATA 
1862 , +BIT..... ALSO CHECK DNA 
1863 006062 005367 173034 DEC SHIFT ;# OF SHIFTS 
1864 006066 001352 ° BNE 1$ -D0 IT AGAIN ? 
1865 +;NOW POKE CLK TO SEE DNA 
1866 006070 052777 O20000 173630 BIS #CLK, JTXCSR +POKE CLK 
1867 006076 012700 100000 MOV #100000, RO + EXPECTED 
1868 006102 017701 173620 MOV aTXCSR, R1 > ACTUAL " 
1869 006106 042701 077777 BIC #77777,R1 + SAVE DNA ONLY 
1870 006112 020001 CMP RO.R1 > COMPARE EXPECTED VS ACTUAL 
1871 006114 001401. BEQ . +4 
1872 006116 104003 ERROR 3 +DNA SHOULD BE SET 
1873 > 1F DONA DID NOT SET . CHECK WORD LENGTH 
1874 + SELECT LOGIC OF THE TRANSMITTER 
1875 006120 005777 17302 TST a@TXCSR ;ONA ? 
1876 006124 100001 BPL _ +4 
1877 006126 104004 ERROR u >DNA SHOULD NOT BE SET 
1878 + 1T SHOULD HAVE BEEN CLEARED FROM 
1879 ;PREVIOUS READ 
1880 
1881 +; THIS TEST VERIFYS WORD LENGTH SELECT OF 
1882 3; THE TRANSMITTER SECTION, IT USES THE DNA FLAG 
1883 ;;AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
1884 +; CORRECTLY 
1885 ;;NOTE: DNA COMES UP ON THE FIRST RISING BIT 
1886 +7EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
1887 +;LOADED INTO TXDBUF 
1888 +; MODE: SYNINT 
1889 ;;PARITY: NO PARITY 
1890 ;; LENGTH: SEVEN 
1891 ie 
1892 35 AXKKKAKAAAAAAA AAA AAA AAA AAA KAA AAA AAA AAA 
1893 006130 o00004 TST10: SCOPE 
1894 006132 052777 OOO400 173566 BIS #MRESET,@TXCSR ;MASTER RESET 
1895 006140 012777 O30000 173554 MOV #SYNINT, APARCSR >; SET THE MODE r 4 
1896 006146 052777 OOO400 173552 BIS #MRESET. @TXCSR ;MASTER RESET , 
1897 
1898 ;SET MAINTENANCE MODE & SEND 
1899 ; NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
1900 006154 012777 OO4020 173544 MOV #MINT! SEND, dTXCSR 
1901 
1902 + SET 2 OF BITS.PARITY SENSE,& LOAD SYNC REG ‘| 
1903 006162 012777 O34026 173532 #SYNINT! SEVEN! NOPAR ! 26. aPARCSR = 


1904 006170 016703 173532 HOV TXCSR,R3 *SET UP FOR ERROR MSG * 
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006174 
006202 
006210 


006216 
006224 
006232 
006234 
006240 
006242 
006246 
006246 
006254 
006262 
006266 
006272 
006274 
006276 


006300 
006304 


006306 
006314 
006320 
006324 
006330 
006332 
006334 


006336 
006342 
006344 


006364 


31-MAY-77 09:4 


112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 


020001" 


001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


005777 
100001 
104004 


000004 
052777 
012777 
052777 


000021 
000021 
000007 


020000 
020000 


173240 
002009 
020000 
020000 


173440 
075777 


172616 


020000 
100000 
173402 
077777 


173364 


000400 


030000 


000400 


173530 
173270 
172704 


173502 
173474 


173452 
173444 


172412 


173350 
173336 
173334 


21- hs -77 O9: * PAGE 
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42 
INITIALIZE THE COMMON TAGS 


MOVB #21, dTXOBUF ;LOAD CHAR 
MoV #21, STMP1 ; SHIFTED CHAR 
MoV #7, SHIFT ;# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, aTXCSR +POKE CLK UP 
BIC #CLK, dTXCSR ;POKE CLK DOWN 
15: CLR RO 
ROR S$TMP1 ;FORCE CARRY 
BCC 23 
“ BIS #B1TW,RO ;EQUIV OF BIT WINDOW 
BIS #CLK, aTXCSR ;POKE CLK UP 
BIC #CLK, ATXCSR ;POKE CLK DOWN 
MOV OTXCSR, R1 ; ACTUAL 
BIC #075777,R1 ; SAVE BITW & DNA 
CMP RO.R1 ; COMPARE EXP VS ACT 
BEQ . +4 
ERROR 3 ;B1T WINDOW DID NOT MATCH ACTUAL DATA 
»BIT..... ALSO CHECK DONA 
DEC SHIFT ;# OF SHIFTS 
BNE 1$ ;00 IT AGAIN ? 
;NOW POKE CLK TO SEE DNA 
BIS #CLK, ATXCSR ;POKE CLK 
MOV #100000, RO + EXPECTED 
MOV aTXCSR,R1 > ACTUAL 
BIC #77777,R1 ; SAVE DNA ONLY 
CMP RO. R1 ; COMPARE EXPECTED VS ACTUAL 
BEG _ +4 
ERROR 3 ;DONA SHOULD BE SET 
; 1F DONA DID NOT SET . CHECK WORD LENGTH 
; SELECT LOGIC OF THE TRANSMITTER 
TST a@TXCSR ;DNA ? 
BPL . +4 
ERROR 4 ;DNA SHOULD NOT BE SET 


+ 1T SHOULD HAVE BEEN CLEARED FROM 
PREVIOUS READ 


>; THIS TEST VERIFYS WORD LENGTH SELECT OF 

3; THE TRANSMITTER SECTION. IT USES THE DNA FLAG 
;2AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
+; CORRECTLY 

;;NOTE: DNA COMES UP ON THE FIRST RISING BIT 

;2EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
;;LOADED INTO TXDBUF 

:;MODE: SYNINT 

;;PARITY: NO PARITY 

>; LENGTH: & |GHT 


PEST iiittttttttitttttt ttt ttt tt ists titi ett istt setts tits ttt t tse 


TST11: SCOPE 


BIS 


#MRESET, @TXCSR ; MASTER RESET 
SSYNINT, @PARCSR >; SET THE MODE 
@MRESET, dTXCSR ; MASTER RESET 


;SET MAINTENANCE MODE & SEND 
;NOTE: BIT WINDOW&CLK ARE CLEARED (MTDATA=0) 


SEQ 0040 
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006372 


006400 
006406 
006412 
006420 
006426 


0064 34 


006514 


006516 
006522 


006524 
006532 
006536 
006542 
006546 
006550 
006552 


006554 
006560 
006562 


006564 


31-MAY- 
012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
00€067 
103002 
052700 


052777 


104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


005777 
100001 
104004 


000004 


21-SEP-77 09: 


7 09:49 


004020 


036026 
173314 
000021 
000021 
000010 


020009 
020000 


173022 
002000 
020000 
020000 


173222 
075777 


172400 


020000 
100000 
173164 
077777 


173146 


006566 052777 000400 


173326 


173314 
173312 
173052 
172466 


173264 
173256 


173234 
173226 


173174 


173132 


Cc 4 


18 PAGE 43 
INITIALIZE THE COMMON TAGS 
MOV #MINT! SEND, ATXCSR 
>SET MODE.# OF BITS, PARITY SENSE,.& LOAD pres REG 
MOV #SYNINT!EIGHT! NOPAR ! 26, dPARCSR 
MOV TXCSR, RI ;SET U My ERROR MSG 
MOVB #21, dTXDBUF ‘TORO. CHA 
MOV #21, STMP1 ; SHIFTED CHAR 
MOV #8. ,SHIFT ;# OF SHIFTS 
>POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, @TXCSR ;POKE CLK UP 
BIC #CLK, aTXCSR ;POKE CLK DOWN 
1: CLR RO 
ROR STMP1 + FORCE CARRY 
BCC 23 
= BIS #BITW, RO ;EQUIV OF BIT WINDOW 
BIS #CLK, ATXCSR ;POKE CLK UP 
BIC #CLK, ATXCSR >POKE CLK DOWN 
MOV @TXCSR.R1 ; ACTUAL 
BIC #075777,R1 ; SAVE BITW & DONA 
CMP RO,R1 ; COMPARE EXP VS ACT 
BEQ . +4 
ERROR 3 ;B1T WINDOW DID NOT MATCH ACTUAL DATA 
;BIT..... ALSO CHECK DNA 
DEC SHIFT /# OF SHIFTS 
BNE 1$ ;DO0 IT AGAIN ? 
;NOW POKE CLK TO SEE DONA 
BIS #CLK, ATXCSR +POKE CLK 
MOV #100000, RO ; EXPECTED 
Moy OTXCSR,R1 + ACTUAL 
BIC #77777,R1 + SAVE DNA ONLY 
CMP RO, R1 ; COMPARE EXPECTED VS ACTUAL 
BEQ +4 
ERROR 3 >ONA SHOULD BE SET 
; 1F ONA DID NOT SET . CHECK WORD LENGTH 
; SELECT LOGIC OF THE TRANSMITTER 
TST aTXxcSR ;ONA ? 
BPL +4 
ERROR 4 ;DONA SHOULD NOT BE SET 


> 1T SHOULD HAVE BEEN CLEARED FROM 
*PREVIOUS READ 


;; THIS TEST VERIFYS WORD LENGTH SELECT OF 

>; THE TRANSMITTER SECTION, IT USES THE DNA FLAG 
:;AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
;; CORRECTLY 

;;NOTE: DAA COMES UP ON THE FIRST RISING BIT 

;;EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
;;LOADED INTO TXOBUF 

,; MODE: SYNEXT 

i;PARITY: NO PARITY 

3; LENGTH: F IVE 


ETTT TTT titi ttt it ttt ttiititttttt ttt t titi itt itt titi i tt 
TST12: SCOPE 
BIS SMRESET.@TXCSR <>MASTER RESET 


SEQ 0041 


DZDUTB. M11 


2017 006574 
2018 006602 


2022 006610 


2025 006616 
2026 006624 
2027 006630 
2028 006636 
2029 006644 


2031 006652 
2032 006660 
2033 006666 
2034 006670 
2035 006674 
2036 006676 
2037 006702 
2038 006702 
2039 006710 
2040 006716 
2041 006722 
2042 006726 
2043 006730 
204% 006732 


2046 006734 
2047 006740 


2049 006742 
2050 006750 
2051 006754 
2052 006760 
2053 006764 
2054 006766 
2055 006770 


2058 006772 
2059 006776 
007000 





DZDUT-B MACY11 30(1046) 
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012777 
052777 


012777 


012777 


012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


005777 
100091 
104004 


09:4 


020000 
000400 


004020 


020026 
173076 
000021 
000021 
000005 


020000 
020000 


172604 
002000 
020000 
020000 


173004 
075777 


172162 


020000 
100000 
172746 
077777 


172730 






apt pina 09: 


173120 
173116 


173110 


173076 
173074 
172634 
172250 


173046 
173040 


172016 
172010 


172756 
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D 4 
INITIALIZE THE COMMON TAGS 


MOV #SYNEXT, OPARCSR ; SET THE MODE 
BIS #MRESET.@TXCSR ;MASTER RESET 


+ SET saipae yy) MODE & SEND 
E: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
nov #MINT! SEND, dTXCSR 


;SET MODE.# OF BITS,.PARITY SENSE.& LOAD SYNC REG 
MOV #SYNEXT!F IVE !NOPAR ! 26, dPARCSR 


































MOV TXCSR,R3 ;SET UP FOR ERROR MSG 
MOVB #21, dTXOBUF ; LOAD CHAR 
MOV #21, STMP1 + SHIFTED CHAR 


MOV #5, SHIFT ;# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, @TXCSR +POKE CLK UP 
BIC #CLK, ATXCSR +POKE CLK DOWN 


1$: CLR RO 
ROR STMP1 ;FORCE CARRY 
BCC 2$ 
- BIS #BITW,RO sEQUIV OF BIT WINDOW 
BIS #CLK, ATXCSR *+POKE CLK UP 
BIC #CLK, ATXCSR +POKE CLK DOWN 
MOV OTXCSR, R1 + ACTUAL 
BIC #075777,R1 + SAVE BITW & DNA 
CMP RO.R1 ;COMPARE EXP VS ACT 
BEQ _ +4 
EPROR 3 ;BIT WINDOW DID NOT MATCH ACTUAL DATA 
;BIT..... ALSO CHECK ONA 
DEC SHIFT ;# OF SHIFTS 
BNE 1$ *D00 1T AGAIN ? 
;NOW POKE CLK TO SEE ONA 
BIS #CLK, OTXCSR +POKE CLK 
MOV #100000, RO - EXPECTED 
MOV OTXCSR, R1 ; ACTUAL 
BIC #77777,R1 SAVE DNA ONLY 
CMP RO.R1 ;COMPARE EXPECTED VS ACTUAL 
BEQ _ +4 
ERROR 3 >DNA SHOULD BE SET 


~ 1F DONA DID NOT SET . CHECK WORD LENGTH 
;SELECT LOGIC OF THE TRANSMITTER 
TST aTxcSR ;DNA ? 
BPL _ +4 
ERROR 4 ;DNA SHOULD NOT BE SET 
; 1T SHOULD HAVE BEEN CLEARED FROM 
> PREVIOUS READ 


7; THIS TEST VERIFYS WORD LENGTH SELECT OF 

3; THE TRANSMITTER SECTION, 1T USES THE DNA FLAG 
;;AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
i; CORRECTLY 

;;NOTE: DNA COMES UP ON THE FIRST RISING BIT 

;;EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
;;LOADED INTO TXDBUF 

;; MODE: SYNEXT 

;;PARITY: NO PARITY 


YF 
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007002 
007004 
007012 
007020 


007026 


007034 
007042 
007046 
007054 
007062 


007070 
007076 
007104 
007106 
007112 
007114 
007120 
007120 
007126 
007134 
007140 
007144 
007146 
007150 


007152 
007156 


007160 
007166 
007172 
007176 
007202 
007204 
007206 


007210 
007214 
007216 


31-MAY-77 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
02C001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001491 
104003 


005777 
100001 
104004 


21-SEP-77 09: 


09: 49 


000400 
020000 
000400 


004020 


022026 
172660 
000021 
000021 
000006 


020000 
020000 


172366 
002000 
020u00 
020000 


172566 
075777 


171744 


020000 
100000 
172530 
077777 


172512 


172714 
172702 
172700 


172672 


172660 
172656 
172416 
172032 


172630 
172622 


172600 
172572 


172540 


££. 


18 PAGE 45 
INITIALIZE THE COMMON TAGS 
+; LENGTH: SIX 
ae ee 
BIS #MRESET. @TXCSR ;MASTER RESET 
MOV #SYNEXT, @PARCSR ; SET THE MODE 
BIS #MRESET. @TXCSR ;MASTER RESET 
;SET MAINTENANCE MODE & SEND 
;NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
MOV #MINT!SEND, ATXCSR 
;SET MODE. # OF BITS, PARITY SENSE,.& LOAD SYNC REG 
Mov #SYNEXT!S1X!NOPAR ! 26, @PARCSR 
MOV TXCSR,-R3 ;SET UP FOR ERROR MSG 
MOVB #21, ATXOBUF ;LOAD CHAR 
MOV 4 ight 4, ; SHIFTED CHAR 
MOV #6, SH ;# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, aTXCSR ;POKE CLK UP 
BIC #CLK, ATXCSR >POKE CLK DOWN 
1S: CLR RO 
ROR STMP1 >;FORCE CARRY 
BCC 23 
‘ BIS #BITW. RO ;EQUIV OF BIT WINDOW 
a3: 
BIS aCLK, dTXCSR ;POKE CLK UP 
BIC #CLK, ATXCSR +POKE CLK DOWN 
MOV aTXCSR,R1 7 ACTUAL 
BIC #075777,R1 >; SAVE BITW & DNA 
CMP RO, R1 ; COMPARE EXP VS ACT 
BEQ +4 
ERROR B ;B1T WINDOW DID NOT MATCH ACTUAL DATA 
;BIT..... ALSO CHECK DNA 
DEC SHIFT ># OF SHIFTS 
BNE 1$ ;00 IT AGAIN ? 
;NOW POKE CLK TO SEE DNA 
BIS #CLK, dTXCSR +POKE CLK 
MOV #100000, R0 EXPECTED 
Mov @TXCSR.R1 ; ACTUAL 
BIC #77777.R1 ; SAVE DONA ONLY 
CMP RO. R1 ; COMPARE EXPECTED VS ACTUAL 
BEQ +4 
ERROR 3 ;DNA SHOULD BE SET 
;1F ONA DID NOT SET . CHECK WORD LENGTH 
>SELECT LOGIC OF THE TRANSMITTER 
TST atTxcSR ;ONA ? 


BPL . +4 

ERROR 4 +DNA SHOULD NOT BE SET 
;1T SHOULD HAVE BEEN CLEARED FROM 
;PREVIOUS READ 


>; THIS TEST VERIFYS WORD LENGTH SELECT OF 

3; THE TRANSMITTER SECTION, IT USES THE DNA FLAG 
;;AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
;; CORRECTLY 


SEQ 0043 
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007220 
007222 
007230 
007236 


007244 


007252 
007260 
007264 
007272 
007300 


007306 
007314 
007322 
007324 
007330 
007332 
007336 
007336 
007344 
007352 
007356 
007362 
007364 
007366 


007370 
007374 


007376 
007404 
007410 
007414 
007420 
007422 
007424 


007426 
007432 
007434 


DZOUT-B MACY11 3011046) 
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000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


005777 
100001 
104004 


09: 49 


000409 
020000 
000400 


004020 


024026 
172442 
000021 
000021 
000007 


020000 
020000 


172150 
002000 
020000 
020000 


172350 
075777 


171526 


020000 
100000 
172312 
077777 


172274 


21-SEP-77 9: 


172476 
172464 
172462 


172454 


172442 
17Z440 
172200 
171614 


172412 
172404 


172362 
172354 


172322 
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18 PAGE 46 
INITIALIZE THE COMMON TAGS 


;+NOTE: ONA COMES UP ON THE FIRST RISING BIT 

;;EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER !S 
;+LOADED INTO TXOBUF 

>; MODE: SYNEXT 

>; PARITY: NO PARITY 

>; LENGTH: SEVEN 


55 MAXKHKAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EEE 
TST14: SCOPE 

BIS #MRESET.ATXCSR ; MASTER RESET 

MOV #SYNEXT, OPARCSR ; SET THE MODE 

BIS #MRESET.QTXCSR ; MASTER RESET 


;SET MAINTENANCE MODE & SEND 
;NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
MOV #MINT! SEND, ATXCSR 


;SET MODE.# OF BITS, PARITY SENSE.& LOAD SYNC REG 
MOV #SYNEXT! SEVEN! NOPAR ! 26, @PARCSR 
MOV TXCSR, RZ +SET UP FOR ERROR MSG 
MOVB #21, aTXDBUF +LOAD CHAR 


MOV #21, STMP1 + SHIFTED CHAR 
MOV #7, SHIFT +# OF SHIFTS 
>POKE CLK TO GET ae aged 
BIS TXCSR ;>POKE CLK UP 
BIC CLK. O@TXCSR >POKE CLK DOWN 
1S: CLR RO 
ROR STMP1 ;FORCE CARRY 
BCC 
- BIS #BITW, RO -EQUIV OF BIT WINDOW 
62: 
BIS #CLK, ATXCSP *POKE CLK UP 
BIC a#CLK, dTXCSR *POKE CLK DOWN 
MOV aTXCSR, R1 * ACTUAL 
BIC #075777,R1 +SAVE BITW & DNA 
CMP RO.R1 ;COMPARE EXP VS ACT 
BEQ . +4 
ERROR 3 >BIT WINDOW DID NOT MATCH ACTUAL DATA 
+BIT..... ALSO CHECK DNA 
DEC SHIFT ;:# OF SHIFTS 
BNE 1$ >DO IT AGAIN ? 
>NOW POKE CLK TO SEE DONA 
BIS #CLK, ATXCSR +POKE CLK 
MOV #100000, RO + EXPECTED 
MoV O@TXCSR,R1 ; ACTUAL 
Bic #77777,R1 SAVE DNA ONLY 
CMP RJ-R1 ;COMPARE EXPECTED VS ACTUAL 
BEQ . +4 
ERROR 3 DNA SHOULD BE SET 


> 1 DNA DID NOT SET . CHECK WORD LENGTH 
; SELECT LOGIC OF THE TRANSMITTER 

TST aTXxcSR ;ONA ? 

BPL +h 

ERROR 4 >DNA SHOULD NOT BE SET 
> 1T SHOULD HAVE BEEN CLEARED FROM 
;PREVIOUS READ 


SEQ 0044 


2240 >SELECT LOGIC OF THE TRANSMITTEP 





G 4 
DZDUT-B MACY11 30(1046) 21-SEP-77 09:18 PAGE 47 
LZ2DUTB. M11 31-MAY-77 09: 49 INITIALIZE THE COMMON TAGS SEQ 0045 | 
2185 | 
2186 ++ THIS TEST VERIFYS WORD LENGTH SELECT OF 
2187 ++ THE TRANSMITTER SECTION, IT USES THE DNA FLAG 
2188 ++AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
2189 ++ CORRECTLY 
2190 ++NOTE: DONA COMES UP ON THE FIRST RISING BIT 
2191 ;+EOGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IC 
2192 ++LOADED INTO TXOBUF 
2193 ++ MODE: SYNEXT 
2194 ++PARITY: NO PARITY 
te ++ LENGTH: E1GHT 
2197 55 MXXHAAAKA AAA AAA AA RRA AAA AAA AAA AAA AAA EARS 
2198 007436 000004 TST15: SCOPE 
2199 007440 052777 OCO400 172260 Bis BMRESET, dTXCSR ;MASTER RESET 
2200 007446 012777 020000 172246 MOV #SYNEXT, OPARCSR ; SET THE MODE 
aH 007454 052777 OO0400 172244 BIS RMRESET, dTXCSR ; MASTER RESET 
2203 SET MAINTENANCE MODE & SEND 
2204 ;NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
sone 007462 012777 OO4020 172236 MoV #MINT!SEND, dTXCSR 
2207 SET MODE. # OF BITS,PARITY SENSE,.& LOAD SYNC REG 
2208 007470 012777 026026 172224 MOV &#SYNEXT!E IGHT!NOPAR ! 26, @PARCSR 
2209 007476 016703 172224 MOV TXCSR, RZ SET UP FOR ERROR MSG 
2210 007502 112777 000021 172222 MOVB #21, dTXOBUF *LOAD CHAR 
2211 007510 012767 O00U21 171762 MoV #21, STMP1 + SHIFTED CHAR 
2212 007516 012767 000010 171376 MoV #8... SHIFT +# OF SHIFTS 
2213 POKE CLK TO GET INTO SYNCRONIZATION 
2214 007524 052777 020000 172174 BIS #CLK, ATXCSR +POKE CLK UP 
2215 007532 042777 O20000 172166 BIC #CLK, ATXCSR *POKE CLK DOWN 
2216 007540 005000 1S: CLR RO 
2217 007542 006067 171732 ROR STMP1 ;FORCE CARRY 
2218 007546 103002 BCC 2$ 
2219 007550 052700 002000 BIS #B ITH, RO ,EQUIV OF BIT WINDOW 
2220 007554 2$ 
2221 007554 052777 O20000 172144 BIS #CLK, ATXCSR *+POKE CLK UP 
2222 007562 042777 020000 172136 BIC #CLK, ATXCSR >POKE CLK DOWN 
2223 007570 017701 172132 MoV OTXCSR,R1 » ACTUAL 
2224 007574 042701 075777 BIC #075777.R1 *SAVE BITW & DNA 
2225 007600 0209001 CMP RO.R1 :COMPARE EXP VS ACT 
2226 007602 001401 BEQ . +4 
2227 007604 104003 ERROR 3 >BIT WINDOW DID NOT MATCH ACTUAL DATA 
2228 7BIT..... ALSO CHECK DNA 
2229 007606 005367 171310 DEC SHIFT ;# OF SHIFTS 
2230 007612 001352 BNE 1$ +00 IT AGAIN ? 
2231 NOW POKE CLK TO SEE ONA 
2232 007614 052777 020000 172104 BIS #CLK, aTXCSR +POKE CLK 
2233 007622 012700 100000 MoV #100000, RO > EXPECTEC 
2234 007626 017701 172074 MoV OTXCSR,R1 + ACTUAL 
2235 007632 042701 077777 BIC #77777,R1 SAVE DONA ONLY 
2236 007636 020001 CMP RO.R1 ;COMPARE EXPECTED VS ACTUAL 
2237 007640 001401 BEQ _ +4 
2238 007642 104003 ERROR 3 *DNA SHOULD BE SET 
2239 > 1F DONA DID NOT SET . CHECK WORD LENGTH 





OZDUT-B MACY11 30(104%6) 


DZ2DUTB. M11 


2241 
2242 
2243 
2244 


007644 
007650 
007652 


007654 
007656 
007664 
007672 


067700 


007706 
007714 
007720 
007726 
007734 


007742 
007750 
007756 
007760 
007764 
007766 
007772 
007772 
010000 
010006 
010012 
010016 
010020 
010022 


010024 
010030 


010032 


010060 


005777 
100001 
104004 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020091 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 


001401 - 


104003 


H 4 


21-SEP-77 09:18 PAGE 4 
31-MAY-77 09:49 


172056 


000400 
030000 
000400 


004020 


031426 
172U06 
000025 
000065 
000006 


020000 
020000 


171514 
002000 


020000 
020000 
171714 
075777 


171072 


020000 
100000 
171656 
077777 


172042 
172030 
172026 


172020 


172006 
172004 
171544 
171160 


171756 
171756) 


171726 
171720 


171666 


8 
INITIALIZE THE COMMON TAGS 


TST aTXcCSR ;ONA ? 
BPL . +4 
ERROR 4 ;ONA SHOULD NOT BE SET 
; 1T SHOULD HAVE BEEN CLEARED FROM 
> PREVIOUS RERO 


++ THIS TEST VERIFYS CHARACTER PLUS PARIT¢ GENERATION 
+,OF THE TRANSMITTER SECTION. 

++ 1T ALSO CHECKS DONA TIMING 

+; MODE: SYNINT 

++ LENGTH: FIVE PLUS PARITY 

;+PARITY: EVEPAR 

+; CHARACTER: 25 


fe $2 22995 9% 999999595999 993595 0555592292 20029 2 08222520 0 292903 3 8 8 8 | 
TST16: SCOPE 

BIS RMRESET, @TXCSR ; MASTER RESET 

MOV #SYNINT. @PARCSR ; SET THE MODE 

BiS RMRESET,@TXCSR ;MASTER RESET 


SET MAINTENANCE MODE & SEND 
NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
MOV #MINT! SEND, dTXCSR 


>SET MODE.# OF BITS.PARITY SENSE.& LOAD SYNC REG 
MoV @SYNINT!F IVE 'EVEPAR ! 26, dPARCSR 


MoV TXCSR, RI ;SET UP FOR ERROR MSG 
MOVB #25, aTXOBUF ;LOAD DATA CHAR 
MoV #65, STMP1 >TO BE SHIFTED CHAR 
MOV #6. SHIFT ># OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, dTXCSP >POKE CLK UP 
BIC #CLK, ATXCSR >POKE CLK DOWN 
15: CLR RO 
ROR STMP1 >FORCE CARRY 
BCC 28 ;BR IF CARRY CLR 
BIS #BITW.RO ;EQUIV OF BITW 
2S: 
BIS #CLK, aTXCSR >POKE CLK UP 
BIC #CLK, dTXCSR ;POKE CLK DOWN 
MoV aTXCSR,R1 ; ACTUAL 
BIC #075777.R1 >; SAVE BITW & DNA 
CMP RO.R1 ; COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;BIT bitNDOW DID NOT MATCH ACTUAL DATA 
>BIT.... ALSO CHECK DNA 
DEC _ ;# OF SHIFTS 
BNE ;DO0 IT AGAIN ? 
>;NOW POKE CLK To. ce DNA 
BIS #CLK, ATXCSR >POKE CLA 
MoV #100000, R0 > EXPECTED 
MOV @TXCSR, R1 > ACTUAL 
BIC #77777-R1 > SAVE DNA ONLY 
CMP RO,R1 > COMPARE EXP VS ACT 
BEQ _ +4 
ERROR 3 ;DNA SHOULD BE SET 


SEQ 0046 | 


010062 
010064 
010072 
010100 


010106 


010114 
010122 
010126 
010134 
010142 


010150 
010156 
010164 
010166 
010172 
010174 
010200 
010200 
010206 
010214 
010220 
010224 
010226 
010230 


010232 
010236 


010240 
010246 
010252 
010256 
010262 
010264 
010266 


DZDUT-B MACY11 30(1046) 
DZ2DUTB. M11 


ooco04 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


21-SEP-77 09: 


31-MAY-77 09:49 


000400 
030000 
000400 


004020 


031026 
171600 
000025 
000025 
000U06 


020000 
020000 


171306 
0602000 


020000 
020000 
171506 
075777 


170664 


020000 
100000 
171450 
077777 


171634 
171622 
171620 


171612 


171600 
171576 
171336 
170752 


171550 
171542 


171520 
171512 


171460 


1 4 
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INITIALIZE THE COMMON TAGS 


+ 1F ONA DID NOT SET 
+ CHECK WORD LENGTH SELECT LOGIC 


>; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 

++ 1T ALSO CHECKS DONA TIMING 

;>;MODE: SYNINT 

+; LENGTH: FIVE PLUS PARITY 

;; PARITY: ODDPAR 

+; CHARACTER: 25 


;: ASYUAEESSURESSSSMEESEORESS DEALS DOAES ATE TE ATED 
CO 


TST1?: 
BIS #MRESET.dTXCSR -; MASTER RESET 
mov #SYNINT, OPARCSR > SET THE MODE 
BIS @MRESET, @TXCSR ; MASTER RESET 


; SET MAINTENANCE MODE & SEND 
;NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
MOV #MINT!SEND, aTXCSR 


SET MODE.# OF BITS,PARITY SENSE.& LOAD SYNC REG 
MOV @SYNINT!F IVE !OODPAR ! 26, @PARCSR 
MOV TXCSR,. RZ +SET UP FOR ERROR MSG 
MOVB #25, dTXOBUF ;LOAD DATA CHAR 
MOV #25, STMP1 +TO BE SHIFTED CHAR 


MoV #6, SHIFT ;# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 

BIS #CLK, ATXCSR >POKE CLK UP 

BIC aCLK, ATXCSR >POKE CLK DOWN 
13: CLR RO 

ROR STMP 1 > FORCE CARRY 

BCC 2$ 7BR IF CARRY CLR 

BIS #BiTW.RO ,EQUIV OF BITW 
25: 

BIS #CLK, aTXCSR >POKE CLK UP 

BIC #CLK. ATXCSR ;POKE CLK DOWN 

MoV OTXCSR.R1 >; ACTUAL 

BIC #075777.R1 > SAVE BITW & DNA 

CMP RO. R1 >; COMPARE EXP VS ACT 

BEQ . +4 

ERROR 3 ;B1T WINDOW DID NOT MATCH ACTUAL DATA 


*BIT.... ALSO CHECK DNA 
DEC SHIFT ;# OF SHIFTS 


BNE 1$ +00 1T AGAIN ? 
> NOW POKE. CLK TO SEE ONA 
1S 


@CLK, dTXCSR *>POKE CLK 
MOV #100000. RO > EXPECTED 
MOV aTXCSR.R1 > ACTUAL 
BIC #77777,R1 *SAVE DNA ONLY 
CMP RO.R1 COMPARE EXP VS ACT 
BEQ _ +4 
ERROR 3 DNA SHOULD BE SET 


> 1F DNA DID NOT SET 
CHECK WORD LENGTH SELECT LOGIC 


SEQ 0047 





010270 
010272 
010300 
010306 


010314 


010322 
010330 
010334 
010342 
010350 


010356 
010364 
010372 
010374 
010400 
010402 
010406 
010406 
010414 
010422 
010426 
010432 
010434 
010436 


010440 
010444 


010446 
010454 
010460 
010464 
010470 
010472 
010474 


31-MAY- 


DZDUT-B MACY11 301046) 
DLZ2DUTB. M11 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


000400 
000000 
000400 


004020 


001426 
171372 
000025 
000352 
000010 


020000 
020u00 


171100 
002000 


020000 
020000 
171300 
075777 


170456 


020000 
000000 
171242 
077777 


21-SEP-77 
77 09:49 


171426 
171414 
171412 


171404 


171372 
171370 
171130 
170544 


171342 
171334 


171312 
171304 


171252 


J 4 


09:18 PAGE 50 


INITIALIZE THE COMMON TAGS 


++ THIS TEST VERIFYS ere PLUS PARITY GENERATION 
++O0F THE TRANSMITTER SECTION. 

++1T ALSO CHECKS DNA TIMING 

++ MODE: ISYMOD 

++ LENGTH: FIVE PLUS PARITY 

++ PARITY: EVEPAR 

++ CHARACTER: 25 


PRTTTTITTTITTTTTT ITT T TTT TTT TTT TTT TTT TTT TTT TTT eta ttt tet et 


TST20: 


SCOPE 

BIS #MRESET,ATXCSR ; MASTER RESET 
MOV #ISYMOD. @PARCSR ; SET THE MODE 
BIS #MRESET,@TXCSR ; MASTER RESET 


+ SET MAINTENANCE MODE & SEND 


NOTE: BIT WINDOW&CLK ARE CLEARED (MTDATA=0) 
MOV #MINT! SEND, ATXCSR 


> SET oat OF BITS, PARITY SENSE.& LOAD SYNC REG 


18: 


23: 


# ISYMOD!F IVE 'EVEPAR! 26, @PARCSR 
MOV TXCSR, RZ +SET UP FOR ERROR MSG 
MOVB #25, dTXOBUF +LOAD DATA CHAR 
MOV ogg htek TO BE“SHHETED.CHAR . 


MOV #8.,SHIFT :# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 

BIS #CLK, ATXCSR +POKE CLK UP 

BIC #CLK, ATXCSR +POKE CLK DOWN 

CLR RO 

ROR STMP1 ;FORCE CARRY 

BCC 2$ >BR IF CARRY CLR 

BIS #B1 TW. RO sEQUIV OF BITW 

BIS #CLK, ATXCSR *POKE CLK UP 

Bic #CLK, ATXCSR >POKE CLK DOWN 

MoV aTXCSR,R1 + ACTUAL 


BNE 
; NOW ‘in ue TO SEE DNA 
| 


BIC #075777,R1 ; SAVE BITW & DNA 
CMP RO, R1 ; COMPARE EXP VS ACT 
BEQ . +4 
ERROR 3 ;BIT WINDOW DID NOT MATCH ACTUAL DATA 
;BIT,... ALSO CHECK DNA 
DEC SHIFT ;# OF SHIFTS 
1% ;D0 |T AGAIN ? 


#CLK, JTXCSR +POKE CLK 
MOV #0,RO ;EXPECTED 
MOV @TXCSR,R1 + ACTUAL 
BIC #77777,R1 SAVE DNA ONLY 
CMP RO. R1 + COMPARE EXP VS ACT 
BEQ . +4 
ERROR 3 DNA SHOULD BE SET 


+ 1F DONA DID NOT SET 
;CHECK WORD LENGTH SELECT LOGIC 


3; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION 
+; 1T ALSO CHECKS DNA TIMING 


SEQ 0048 


SS Se 


2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
24 36 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 





010476 
010500 
010506 
010514 


010522 


010530 
010536 
010542 
010550 
010556 


010564 
010572 
010600 
010602 
010606 
010610 
010614 
010614 
010622 
010630 
010634 
010640 
010642 
010644 


010646 
010652 


010654 
010662 
010666 
010672 
010676 
010700 
010702 


DZDUT-B MACY11 30(1046) 
DZDUTB. M11 


000004 
052777 
012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017791 
042701 
020001 
001401 
104003 


000400 
000000 
000409 


004020 


001026 
171164 
000025 
000252 
000010 


020000 
020000 


170672 
002000 


020000 
020000 
171072 
075777 


170250 


020000 
000000 
171034 
077777 


21-SEP-77 9: 
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171220 
171206 
171204 


171176 


171164 
171162 
170722 
176336 


171134 
171126 


171104 
171076 


171044 


18 
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PAGE 51 
INITIALIZE THE COMMON TAGS 


++ MODE: ISYMOD 
++LENGTH: FIVE PLUS PARITY 
++ PARITY: ODDPAR 
++ CHARACTER: 25 


i: ASSUAAEESAAESSAAESSOUESSEAAESOAAESEAESDEAATDOAA SEALE OOALEDY 


TST21: 
BIS #MRESET,.QTXCSR ;MASTER RESET 
MOV #ISYMOD, @PARCSR ;SET THE MODE 
BIS #MRESET.QTXCSR ;MASTER RESET 


+ SET ne ae MODE & SEND 
TE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
nov #MINT!SEND, dTXCSR 


;SET MODE.# OF BITS,PARITY SENSE.& LOAD SYNC REG 
MOV #ISYMOD!FIVE!ODDPAR!26 dPARCSR 
MOV TXCSR, R3 +SET UP FOR ERROR MSG 
MOVB #25, dTXOBUF LOAD DATA CHAR 


MOV #252. STMP1 ;TO BE SHIFTED CHAR 
MOV #8... SHIFT 7# OF SHIFTS 
>POKE CLK TO GET “re SYNCRONIZATION 
BIS K, @TXCSR ;POKE CLK UP * 
BIC acLK, aTXCSR >POKE CLK DOWN 
15: CLR RO 
ROR STMP1 >;FORCE CARRY 
BCC. 23 7BR IF CARRY CLR 
BIS #BITW.RO ;EQUIV OF BITW 
25: 
BIS #CLK, ATXCSR +POKE CLK UP 
BIC #CLK, ATXCSR >POKE CLK DOWN 
MOV @TXCSR.R1 + ACTUAL 
BIC #075777.R1 > SAVE BITW & DNA 
CMP RO.R1 ; COMPARE EXP VS ACT 
BEQ _ +4 
ERROR 3 ;BiT WINDOW DID NOT MATCH ACTUAL DATA 


*>BIT.... ALSO CHECK DNA 
DEC SHIFT ;:# OF SHIFTS 


BNE 1$ ;D0 1T AGAIN ? 
> NOW nae ~* TO SEE DNA 


#CLK, ATXCSR >POKE CLK 
MOV #0,.RO ;EXPECTED 
MOV aTXCSR,R1 ; ACTUAL 
BIC #77777-R1 > SAVE DNA ONLY 
CMP RO. R1 ; COMPARE EXP VS ACT 
BEQ . +4 
ERROR 3 ;DNA SHOULD BE SET 


7 1F ONA DID NOT SET 
+ CHECK WORD LENGTH SELECT LOGIC 


7; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 

3; 1T ALSO CHECKS DNA TIMING 

;; MODE: SYNINT 

>; LENGTH: SIX PLUS PARITY 


SEQ 0049 


DZDUT-B MACY11 30(1046) 
DZ20UTB. M11 


2469 010704 QO00004 
2470 010706 052777 
2471 010714 012777 
2472 010722 052777 


2476 010730 012777 


2479 010736 012777 
2480 010744 016703 
2481 010750 112777 
2482 010756 012767 
2483 010764 012767 


2485 010772 (052777 
2486 011000 042777 
2487 011006 005000 
2488 011010 006067 
2489 011014 103002 
2490 011016 052700 
2491 011022 

2492 011022 052777 
2493 011030 042777 
2494 011036 017701 
2495 011042 042701 
2496 011046 020001 
2497 011050 001401 
2498 011052 104003 


2500 011054 005367 
2501 011060 001352 


2503 011062 052777 
2504 011070 012700 
2505 011074 017701 
2506 011100 042701 
2507 011104 0200901 
2508 011106 001401 
2509 011110 104003 


31-MAY-77 


21-SEP-77 09: 


09: 49 


000400 
030000 
000400 


004020 


033426 
170756 
000025 
000125 
000007 


020000 
020000 


170464 
002000 


020000 
020000 
170664 
075777 


170042 


020000 
100000 
170626 
077777 


171012 
171000 
170776 


170770 


170756 
170754 
170514 
170130 


176726 
170720 


170676 
170670 


170636 


» 3 


18 PAGE 52 
INITIALIZE THE COMMON TAGS 
+7 PARITY: EVEPAR 
>; CHARACTER: 25 
3s REXKKXAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AIA AAA AAA AAT 
TST22: SCOPE 
BIS #MRESET. @TXCSR ;MASTER RESET 
MOV #SYNINT, APARCSR ;SET THE MODE 
BIS @MRESET. @TXCSR ;MASTER RESET 
; SET MAINTENANCE MODE & SEND 
NOTE: BIT WINDOWRCLK ARE CLEARED (MTOATA=0) 
Mov #MINT! SEND, dTXCSR 
;SET MODE,.# OF BITS. PARITY SENSE.& LOAD SYNC REG 
MOV #SYNINT!SIX!EVEPAR ! 26. APARCSR 
MOV TXCSR,R3 ;SET UP FOR ERROR MSG 
MOVB #25, dTXDBUF ;LOAD DATA CHAR 
MoV #125, STMP1 ;TO BE SHIFTED CHAR 
MOV #7, SHIFT ;# OF SHIFTS 
;POKE CLK TO GET INTO SYNCRONIZATION 
BiS #CLK, ATXCSR >POKE CLK UP 
BIC #CLK, aTXCSR ;POKE CLK DOWN 
15: CLR RO 
ROR STMP1 > FORCE CARRY 
BCC 23 7BR IF CARRY CLR 
- BIS #BITW.RO ;EQUIV OF BITW 
BIS #CLK. aATXCSR ;POKE CLK UP 
BIC #CLK, dTXCSR ;POKE CLK DOWN 
MOV aTXCSR.R1 > ACTUAL 
BIC #075777.R1 ; SAVE BITW & DNA 
CMP RO. R1 ; COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;B1T WINDOW DID NOT MATCH ACTUAL DATA 
;BIT.... ALSO CHECK DNA 
DEC SHIFT ;# OF SHIFTS 
BNE 1$ ;DO IT AGAIN ? 
;NOW POKE CLK TO SEE DONA 
BIS aCLK, ATXCSR >POKE CLK 
MoV #100000, RO 7 EXPECTED 
MoV aTXCSR,R1 ; ACTUAL 
BIC #77777,R1 ; SAVE DNA ONLY 


CMP RO. R1 >COMPARE EXP VS ACT 


BEQ +4 
ERROR 3 +DNA SHOULD BE SET 
+ 1F ONA DID NOT SET 
+ CHECK WORD LENGTH SELECT LOGIC 


;; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 

3;1T ALSO CHECKS DONA TIMING 

;; MODE: SYNINT 

;; LENGTH: SIX PLUS PARITY 

;;PARITY: ODDPAR 

;; CHARACTER: 25 


¢?” 


SEQ 0050 


nh 4 
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DZDUTB. M11 31-MAY-77 09: 49 INITIALIZE THE COMMON TAGS SEQ 0051 
2521 js AXKREAAAAAAAA LARA RARE AAAS AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAAS 
2522 011112 000004 TST23: SCOPE 
2523 011114 052777 OOO4O0 170604 BIS #MRESET,@TXCSR ; MASTER RESET 
2524 011122 012777 O30000 170572 MOV #SYNINT, OPARCSR ; SET THE MODE 
oo 011130 052777 O00400 170570 BIS MMRESET.@TXCSR ;MASTER RESET 
2527 + SET MAINTENANCE MODE & SEND 
2528 NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
og 011136 012777 004020 170562 MOV #MINT!SEND, dTXCSR 
2531 + SET MODE. # OF BITS,PARITY SENSE.& LOAD SYNC REG 
2532 011144 012777 033026 170550 MOV #SYNINT!S1IX!ODDPAR ! 26, APARCSR 
2533 011152 016703 170550 MOV TXCSR,R3 +SET UP FOR ERROR MSG 
2534 011156 112777 000025 170546 MOVB #25, aTXOBUF LOAD DATA CHAR 
2535 011164 012767 000025 170306 MOV #25, STMP1 +TO BE SHIFTED CHAR 
2536 011172 012767 000007 167722 Mov #7. SHIFT ;# OF SHIFTS 
2537 +POKE CLK TO GET INTO SYNCRONIZATION 
2538 011200 052777 020000 170520 BIS #CLK, ATXCSR +POKE CLK UP 
2539 011206 042777 O20000 170512 BIC #CLK, ATXCSR +POKE CLK DOWN 
2540 011214 005000 1$: CLR RO 
2541 011216 C06067 170256 ROR STMP1 ; FORCE CARRY 
2542 011222 103002 BCC 2$ *BR IF CARRY CLR 
2543 011224 052700 002000 BIS #B ITH, RO sEQUIV OF BITW 
2544 011230 2: 

2545 011230 052777 020000 170470 BIS #CLK, ATXCSR +POKE CLK UP 

2546 011236 042777 O2C000 170462 BIC #CLK, ATXCSR +POKE CLK DOWN 

2547 011244 017701 170456 MoV OTXCSR,R1 + ACTUAL 

2548 011250 042701 075777 BIC #075777,R1 + SAVE BITW & DNA 

2549 011254 020001 CMP RO.R1 ;COMPARE EXP VS ACT 

2550 011256 001401 BEQ . +4 

2551 011260 104003 ERROR 3 >BtT WINDOW DID NOT MATCH ACTUAL DATA 
2552 *BIT.... ALSO CHECK DNA 

2553 011262 005367 167634 DEC SHIFT ;# OF SHIFTS 

2554 011266 001352 BNE 1$ :D0 IT AGAIN ? 

2555 >NOW POKE CLK TO SEE ONA 

2556 011270 052777 020000 170430 BIS #CLK. aTXCSR +POKE CLK 

2557 011276 012700 100000 MOV #100000, RO + EXPECTED 

2558 011302 017701 170420 MOV @TXCSR,R1 + ACTUAL 

2559 011306 042701 077777 BIC #77777,R1 SAVE DNA ONLY 

2560 011312 020001 CMP RO,R1 COMPARE EXP VS ACT 
2561 011314 001401 BEQ +4 

2562 011316 104003 ERROR 3 +DNA SHOULD BE SET 

2563 + 1F DNA DID NOT SET 

2564 CHECK WORD LENGTH SELECT LOGIC 
2565 

2566 +; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
2567 ;;0F THE TRANSMITTER SECTION 

2568 +; 1T ALSO CHECKS DNA TIMING 

2569 ++ MODE: ISYMOD 

2570 + LENGTH: SIX PLUS PARITY 

2571 ++ PARITY: EVEPAR 

2572 ++ CHARACTER: 25 

2573 a 

2574 5 5 AERKAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AEE 
2575 011320 000004 TST24: SCOPE 


2576 011322 052777 000400 170376 BIS @MRESET. dTXCSR ; MASTER RESET 


DZ0UT-B8 MACY11 pedi 


DZDUTB. M11 


011330 
011336 


011344 


011352 
011360 
011364 
011372 
011400 


011406 
011414 
011422 
011424 
011430 
011432 
011436 
011436 
011444 
011452 
011456 
011462 
011464 
011466 


011470 
011474 


011476 
011504 
011510 
011514 
011520 
011522 
011524 


011526 
011530 
011536 
011544 


31-MAY- 


012777 
052777 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


000004 
052777 
012777 
052777 


21-SEP-77 09: 
09: 49 


000000 
000400 


004020 | 


003426 
170342 
000025 
000652 
000011 


020000 
020000 


170050 
002000 


020000 
020000 
170250 
075777 


167426 


020000 
600000 
170212 
077777 


000400 
000000 
000400 


170364 
170362 


170354 


170342 


170340 
170100 
167514 


170312 
170304 


170262 
170254 


170222 


170170 
170156 
170154 


18 


MOV 
BIS 


N 4 


PAGE 54 
INITIALIZE THE COMMON TAGS 


#ISYMOD, OPARCSR ;SET THE MODE 
MMRESET.Q@TXCSR ;MASTER RESET 


+ SET emg my MODE & SEND 
TE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 


nov 


#MINT! SEND, aTXCSR 


+ SET ~~ OF BITS. PARITY SENSE.& LOAD SYNC REG 


#ISYMOD!SIX!EVEPAR! 26. aPARCSR 

TXCSR, RZ +SET UP FOR ERROR MSG 
#25, dTXDBUF ; LOAD DATA CHAR 

+ gg tte +TO BE SHIFTED CHAR 
#9.,SHIFT +# OF SHIFTS 


+ POKE cu ro GET INTO. SYNCRONIZAT ION 


1$: 


23: 


BNE 1$ 
> NOW a ‘- TO SEE DNA 


PETeTttittittttttitttttttttttttstttttt ttt tt ttt t ttt ttt ttt ttt TTT} 
TST25: SCOPE 


DEC 


BEQ 
ERROR 


TXCSR +POKE CLK UP 
ee - OTXCSR +POKE CLK DOWN 


STMP1 ;FORCE CARRY 
2$ +BR IF CARRY CLR 
#B1TW, RO *EQUIV OF BITW 


#CLK, dTXCSR +POKE CLK UP 

#CLK, dTXCSR +POKE CLK DOWN 

OTXCSR,.R1 + ACTUAL 

#075777,R1 >;SAVE BITW & DONA 

RO.R1 +COMPARE EXP VS ACT 

+4 

3 >BIT WINDOW DID NOT MATCH ACTUAL DATA 


*BIT,... ALSO CHECK om 
SHIFT ;# OF SHIFTS 
+00 IT AGAIN ? 


#CLK. ATXCSR +POKE CLK 
#0.RO -;EXPECTED 


aTXCSR. RI + ACTUAL 

#77777.R1 + SAVE DNA ONLY 

RO. R1 + COMPARE EXP VS ACT 
. +4 

3 +ONA SHOULD BE SET 


+1 DNA DID NOT SET 
*CHECK WORD LENGTH SELECT LOGIC 


7; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
77O0F THE TRANSMITTER SECTION. 

>, 1T ALSO CHECKS DONA TIMING 

;- MODE: ISYMOD 

;; LENGTH: 51X PLUS PARITY 

;; PARITY: ODDOPAR 

++ CHARACTER: 25 


BIS 
MOV 
BIS 


RMRESET,@TXCSR -;MASTER RESET 
#ISYMOD, OPARCSR ;>SET THE MODE 
@MRESET,@TXCSR ;MASTER RESET 


SEQ 0052 


sess see 


DZDUT-B MACY11 30(1046) 


OZDUTB. M11 


011552 


011560 
011566 
011572 
011600 
011606 


011614 
011622 
011630 
011632 
011636 
011640 
011644 
011644 
011652 
011660 
011664 
011670 
011672 
011674 


011676 
011702 


011704 
011712 
011716 
011722 
011726 
011730 
011732 


011734 
011736 
011744 
011752 


31-MAY-77 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
005000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020001 
001401 
104003 


000004 
052777 
012777 
052777 


21-SEP-77 09: 


09: 49 


004020 


003026 
170134 
000025 
000452 
c00011 


020000 
020000 


167642 
002000 


020000 
020000 
170042 
075777 


167220 


020000 
000000 
170004 
077777 


000400 
030000 
000400 


170146 


170134 
170132 
167672 
167306 


170104 
170076 


170054 
170046 


170014 


167762 
167750 
167746 


8B 5 
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INITIALIZE THE COMMON TAGS 
+ SET MAINTENANCE MODE & SEND 
NOTE: BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
Mov #MINT! SEND, dTXCSR 
>SET MODE.#® OF BITS, PARITY SENSE.& LOAD SYNC REG 
MOV #ISYMOD!S1X!ODDPAR ! 26. APARCSR 
MOV TXCSR, RI ;SET UP FOR on MSG 
MOVB #25, dTXOBUF ; LOAD DATA CHAR 
MOV Pigg 84M, ;TO BE SHIFTED CHAR 
MOV #9.,SH ;# OF SHIFTS 
»POKE CLK TO GET INTO SYNCRONIZATION 
BIS #CLK, dTXCSR >POKE CLK UP 
BIC #CLK, ATXCSR ; POKE CLK DOWN 
15: CLR RO 
ROR STMP 1 > FORCE CARRY 
BCC 23 ;BR IF CARRY CLR 
- BIS #BITW,RO ;EQUIV OF BITW 
Bis #CLK, dTXCSR +POKE CLK UP 
BIC #CLK, ATXCSR ;POKE CLK DOWN 
MOV OTXCSR,R1 +; ACTUAL 
BIC #075777,R1 ; SAVE BITW & DONA 
CMP RO. R1 >; COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;BIT WINDOW DID NOT MATCH ACTUAL DATA 
;BIT.... ALSO CHECK DNA 
DEC SHIFT ;# OF SHIFTS 
BNE 1$ ;D0 tT AGAIN ? 
;NOW POKE CLK TO SEE DONA 
BIS #CLK, JTXCSR ;POKE CLK 
MOV #0,RO ;EXPECTED 
_ MoV aTXCSR,R1 ; ACTUAL 
BIC #77777-R1 ; SAVE DNA ONLY 
CMP RO.R1 >; COMPARE EXP VS ACT 
BEQ _ +h 
ERROR 3 ;DNA SHOULD BE SET 
;1F ONA DID NOT SET 
;CHECK WORD LENGTH SELECT LOGIC 
3; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
+7OF THE TRANSMITTER SECTION. 
3; 1T ALSO CHECKS DONA TIMING 
:;MODE: SYNINT 
+; LENGTH: SEVEN PLUS PARITY 
3; PARITY: EVEPAR 
;; CHARACTER: 125 
Fe Oo 95555000 000050 0000000000000 Fob e soe eee e eee F522 0 0000008 08 8 | 
TST26: SCOPE 
BIS @MRESET. @TXCSR ;MASTER RESET 
MoV @SYNINT, @PARCSR ; SET THE MODE 
BIS #MRESET. @TXCSR ;MASTER RESET 


;SET MAINTENANCE MODE & SEND 


SEQ 0053 


DZ2DUT-B MACY11 30(1046) 


DZ20UTB. M11 


011760 


011766 
011774 
012000 
012006 
012014 


012022 
012030 
012036 
012040 
012044 
012046 
012052 
012052 
012060 
012066 
012072 
012076 
012100 
012102 


012104 
012110 


012112 
012120 
012124 
012130 
012134 
012136 


31-MAY-77 


012777 


012777 
016703 
112777 
012767 
012767 


052777 
042777 
60£000 
006067 
103002 
052700 


052777 
042777 
017701 
042701 
020001 
001401 
104003 


005367 
001352 


052777 
012700 
017701 
042701 
020061 
001401 


¢c 65 
E 56 
INITIALIZE THE COMMON TAGS 


21- * am 77 +09:18 PAGE 





2723 012140 104003 


2736 012142 000004 
2737 012144 052777 
2738 012152 012777 
2739 012160 052777 


2743 012166 012777 


09: 4 
;NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
004020 167740 MOV #MINT! SEND, dTXCSR 
;SET MODE,.# OF BITS.PARITY SENSE.& LOAD SYNC REG 
035426 167726 MoV #SYNINT! SEVEN! EVEPAR ! 26, dPARCSR 
167726 MoV TXCSR, RI ;SET UP FOR ERROR MSG 
000125 167724 MOVB #125, aTXOBUF ; LOAD DATA CHAR 
000125 167464 MoV Dag HA +70 BE SHIFTED CHAR 
000010 167100 MOV #8..SH ;# OF SHIFTS 
>POKE CLK TO GET INTO SYNCRONIZATION 
020000 167676 BIS #CLK, JTXCSR +POKE CLK UP 
020000 167670 BIC #CLK, dTXCSR +;POKE CLK DOWN 
15: CLR RO 
167434 ROR STMP1 > FORCE CARRY 
BCC 23 ;BR IF CARRY CLR 
002000 - BIS #BITW.RO ;EQUIV OF BITW 
020000 167646 BIS #CLK, ATXCSR ;POKE CLK UP 
020000 167640 BIC #CLK, ATXCSR 7POKE CLK DOWN 
167624 MOV OTXCSR,R1 > ACTUAL 
075777 BIC #075777.R1 + SAVE BITW & DNA 
CMP RO. R1 ; COMPARE EXP VS ACT 
BEQ . +4 
ERROR E ;BIT WINDOW DID NOT MATCH ACTUAL DATA 
;BIT.... ALSO CHECK ONA 
167012 DEC SHIFT ># OF SHIFTS 
BNE 1$ ;00 IT AGAIN ? 
;NOW POKE CLK TO SEE DNA 
020000 167606 BIS #CLK, dTXCSR >POKE CLK 
100000 MoV #100000, RO » EXPECTED 
167576 MoV aTXCSR,R1 +; ACTUAL 
077777 BIC #77777.R1 ; SAVE DNA ONLY 
CMP RO. R1 > COMPARE EXP VS ACT 
BEQ +4 
ERROR 3 ;DNA SHOULD BE SET 
; \F DONA DID NOT SET 
; CHECK WORD LENGTH SELECT LOGIC 
3; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
;;0F THE TRANSMITTER SECTION. 
37 1T ALSO CHECKS DNA TIMING 
7+; MODE: SYNINT 
>; LENGTH: SEVEN PLUS PARITY 
7; PARITY: ODDPAR 
>; CHARACTER: 125 
Fe $$ 955 000000050050000000000000000000000000000000005009099500 98 9 | 
TST27: SCOPE 
000400 167554 BIS #MRESET.@TXCSR -;MASTER RESET 
030000 167542 MoV @SYNINT, @PARCSR ; SET THE MODE 


BIS @MRESET, @TXCSR -; MASTER RESET 
;SET MAINTENANCE MODE & SEND 


000400 167540 


;NOTE: BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 


004020 167532 MOV #MINT! SEND, ATXCSR 


SEQ 0054 





D5 


— a a 
| 


DZDUT-B MACY11 30(1046) 21-SEP-77 09:18 PAGE 57 
bZ20UTB. M11 31-MAY-77 09: 49 INITIALIZE THE COMMON TAGS SEQ 0055 
2745 SET MODE. # OF BITS,PARITY SENSE.& LOAD SYNC REG 
2746 012174 012777 035026 167520 MOV #SYNINT! SEVEN! ODDPAR ! 26, OPARCSR 
2747 012202 016703 167520 MOV TXCSR,R3 + SET UP FOR ERROR MSG 
2748 012206 112777 000125 167516 MOVB 4h ah tLe sd ;LOAD DATA CHAR 
2749 012214 012767 000325 167256 MOV #325, STM >TO BE SHIFTED CHAR 
2750 012222 012767 O00010 166672 MOV #8. ,SHI NET. ;# OF SHIFTS 
2751 +POKE CLK TO GET INTO SYNCRONIZATION 
2752 012230 052777 O20000 167470 BIS ¥WCLK, ATXCSR +POKE CLK UP 
2753 012236 042777 O20000 167462 BIC #CLK, aTXCSR +POKE CLK DOWN 
2754 012244 005000 1$: CLR RO 
2755 012246 006067 167226 ROR STMP1 ;FORCE CARRY 
2756 012252 103002 BCC 2$ *BR IF CARRY CLR 
2757 012254 052700 002000 Bis #BITW,RO +EQUIV OF BITW 
2758 012260 23: 
2759 012260 052777 020000 167440 BIS #CLK, ATXCSR +POKE CLK UP 
2760 012266 042777 O20000 167432 BIC #CLK, dTXCSR >POKE CLK DOWN 
2761 012274 017701 167426 MOV OTXCSR,R1 + ACTUAL 
2762 012300 042701 075777 BIC #075777,R1 SAVE BITW & DNA 
2763 012304 020001 CMP RO.R1 ;COMPARE EXP VS ACT 
2764 012306 001401 BEQ . +4 
2765 012310 104003 ERROR 3 +B1T WINDOW DID NOT MATCH ACTUAL DATA 
2766. >BIT,... ALSO CHECK DNA 
2767 012312 005367 166604 DEC SHIFT ;# OF SHIFTS 
2768 012316 001352 BNE 1$ ;D0 IT AGAIN ? 
2769 *NOW POKE CLK TO SEE DNA 
2770 012320 052777 O2C0000 167400 BIS #CLK, ATXCSR *POKE CLK 
2771 012326 012700 100u00 MoV #100000, RO + EXPECTED 
2772 #012332 017701 167370 MoV @TXCSR,R1 ; ACTUAL 
2773 012336 042701 077777 BIC #77777,R1 SAVE DNA ONLY 
2774 012342 026001 CMP RO, R1 COMPARE EXP VS ACT 


2775 012344 001401 BEQ +4 
2776 012346 104003 ERROR 3 DNA SHOULD BE SET 
2777 > 1F DNR O!D NOT SET 


| 
2778 >CHECK WORD LENGTH SELECT LOGIC 
2779 
2780 
2781 
2782 END OF PASS 
2783 TYPE NAME OF TEST 
2784 ; UPDATE PASS COUNT 
2785 > CHECK FOR EXIT TO ACT-11 
2786 RESTART TEST 
2787 
2788 012350 000004 _ EOP: SCOPE 
2789 012352 004767 000340 JSR PC, CKSHR 
2790 012356 104401 TYPE ; TYPE NAME OF TEST 
2791 012360 015506 MEPASS 
2792 012362 104413 012614 CONVRT OUTCRY 
2793 012366 104401 015325 TYPE , DEVICE 
2794 012372 105767 166554 TSTB MULTO ;ARE YOU RUNNING MULTIPLE DEVICES ? 
2795 012376 001511 BEQ ccc +NO, JUMP AROUND 
2796 012400 005767 166562 TST ACTREG ;ARE ANY DEVICES ACTIVE ? 
2797 012404 001007 BNE RUNIT ;YES 
2798 012406 104401 015337 TYPE »MCOW > NO 
2799 012412 016700 166550 MOV ACTREG, RO DISPLAY ACTREG 


2800 012416 000000 HALT >SELECT SOMETHING TO RUN @ ACTREG 











DZ0UT-B MACY11 30(1046) 


DZ0UTB. M11 


012420 
012424 
012432 
012440 
012442 
012446 


012450 
012456 
012460 
012464 
012470 


012476 
012504 
012512 


012612 


012614 
012616 
012620 


012622 
012622 
012626 
012632 
012636 
012642 
012650 


012712 


31-MAY-77 


000167 
062767 
062767 
000241 
006167 
103410 


036767 
001762 
004767 
000167 
012767 


016767 
016767 
004767 
000441 
016767 
004767 
016767 
062767 
016767 
062767 
016767 
062767 
016767 
016767 
000207 


000001 
006 
001712 


005067 
005067 
005067 
005267 
016767 
016767 
013701 
001496 
000005 
000005 
004711 
000240 
000240 
000240 


012767 
004767 
000167 


21-SEP-77 09: 


09: 49 


167526 
000010 
000010 


166522 


166514 


000034 
000210 
000001 


166454 
166454 
000002 


166430 
004260 
166424 
000002 
166410 
000002 
166374 
000002 
166360 
167126 


002 


166554 
166564 
166545 
166250 
166244 
166236 
000042 


003376 
000004 
170372 


166522 
166522 


166510 


166472 


166450 
166450 


004416 


167176 
166414 
167164 
166400 
167152 
166364 
167140 
166350 


166232 
166656 


166500 


18 PAGE 58 
INITIALIZE THE COMMON TAGS 


_ ar. & HIT CONTINUE (PUT SWOO = 


RUNIT: 
ZERO: 


23: 


REPLAY: 


OUTCRY: 


ccc: 


SENDAD: 


RESTRT: 


e 5 


START OVER 
+NEXT BLOCK (ADDRESSES) 
+NEXT BLOCK (VECTORS) 


;UP DATE ROTATING POINTER 
\T THE LAST DEVICE 


#10, BASEADD 
#10, BASE IV 


ROTADD 
2$ ‘1S | 


AGAIN...... YOU DE SELECTED EVERYTHING 


+70 BE TESTED IN THIS PASS ? 


ROTADD, ACTREG 
RUNIT 
PC, REPLAY 
RESTRT 
#1,ROTADD 


+ 1F NOT ACTIVE, 


; TEST THIS DEVICE FOR ACTIVE STATUS 


TRY NEXT ADDRESS 
CULATE NEW PARAMETERS 


A + CAL 
+YES IT WAS ACTIVE, TEST THIS DEVICE 


+OK!,NOW SET UP ROTATING 


POINTER FOR NEXT MULTIPLE PASS 
KEEPADD. BASEADD ; RESTORE BASE ADDRESS 


KEEP IV, BASE IV 
PC, REPLAY 
ccc 


BASERDO. DUBASE 


PC, DUADOR 
BASE | V. DUR IV 
#2. BASE IV 
BASE IV, DURIS 
#2, BASE IV 
BASE |V. DUTIV 
#2, BASE IV 
BASE IV, DUTIS 
DUR IV, BASE IV 
PC 


6,2 


STSTNM 
SERRPC 
SERFLG 
PASCNT 
PASCNT, LIGHTS 
PASCNT, SPASS 
842, R1 
RESTRT 


PC, (R1) 


#TST1+2, SLPADR 


PC, CKSWR 
. BEGIN 


; RESTORE BASE INTERRUPT VECTORS 
;CALC NEW PARAMETERS 


; JUMP AROUND REPLAY 


;SET UP FOR NEW ADDRESSES 
+ CREATE NEW ADDRESSES 
CREATE DURIV 


CREATE DURIS 
CREATE DUTIV 


; CREATE DUTIS 
+ RESTORE 


;CLEAR TEST NUMBER 
;CLEAR LAST ERROR PC 

> CLEAR ERROR FLAG 

; UPDATE PASS COUNT 
;DISPLRY PASS COUNT 
PASS COUNT TO APT 
CHECK FOR ACT-11 OR DOP 

> 1F NO CONTINUE TESTING 


>LOAD LAST ADOR 


>; CHECK SWITCH REGISTER ROUTINE 
;CHECKS TO ALLOW FOR < G> TO ALLOW 











DZDUT-B MACY11 30(104%6) 


UZ2DUTB. M11 


012716 
012722 
012724 
012732 
012734 
012740 
012742 
012750 
012756 
012764 
012766 
012772 
012776 
013002 
013004 
013006 
013012 
013014 
013016 
013020 
013022 
013024 
013030 
013032 
013034 
013036 
013040 


013042 


013044 
013050 
013056 
013060 
013064 


31-MAY- 


005737 
001040 
022767 
001034 
105777 
100031 
017767 
042767 
122767 
001017 
104401 
005137 
104401 
104413 
013034 


000005 


004767 
032777 
001402 
016716 
000002 


21-SEP-77 09: 
77 09: 49 


000042 
000176 
166504 
166500 
177609 
000007 
616113 


013032 
016123 


016134 


001 
013032 


002 


177646 
001000 


166024 


166506 


000422 
000414 
000406 


166362 


18 


CKSWR: 


CNTLU: 


BYTE 
OUT: 


ROSH: 
SWREGL: 


. SCOP 1: 


1S: 
_ SBTTL 


FS 


PAGE 59 
INITIALIZE THE COMMON TAGS 


+ THE CHANGING OF LOCATION 176 


TST na 

BNE OUT 

CMP oa SWR 
BNE OUT 

TSTB A a 

BPL 


OUT 
MOV aSTKB,. MSG 
BIC #177600, . MSG 
CMPB #7,. MSG 


BNE OUT 
YPE MCNTG 
COM d#ROSW 
YPE , MMSHR 
CONVRT 

SWREGL 

INSTR, MMNEW 
177777 

SWREG 

0,1 

CLR d#ROSW 
RTS PC 

.WORD O 

1 

.BYTE 6,2 
SWREG 

5 


dn the gor SWR PRESENT? 


LEAVE 
:GET CHARACTER 
;STRIP JUNK 
;IS 17 < @ ? 
;NO 


; CHECK FOR FREEZE ON CURRENT DATA 


JSR PC, CKSWR 
BIT #SWO9, SHR 
BEQ 1$ 

Mov LOCK, (SP) 


RTI 
TYPE ROUTINE 


pe $2500509500600055050559599995259 2923929099 2923909 0390909309993 
;¥ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
>THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

Sr ILLC CONTAINS THE CHARACTER TO FILL AFTER 


> KNOTE1: 


; ENOTE 2: 
; XNOTES: 


Pe 
; XCALL: 


| 


1) USING A TRAP INSTRUCTION 
TYPE R 


, MESAD 


>: MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


SEQ 0057 


—— 


DZDUT-B MACY1i 30(1046) 


UZDUTB. M11 


013066 
013072 
013074 
013076 
013100 
013102 
013106 
013114 
013116 
013124 
013126 
013132 
013136 
013140 
013146 
013150 
013152 
013154 
013156 
013160 
013164 
013166 
013172 
013174 
013200 
013202 
013204 
013206 
013210 
013214 
013216 
013222 
013226 
013230 


013234 
013240 
013242 
013246 
013252 


013254 
013260 
013264 
013272 
013274 
013276 
013300 
013304 
013306 
013314 
013322 
013324 
013330 


21-SEP-77 09: 


31-MAY-77 09:49 


105767 
100002 
000000 
0004 30 
010046 
017600 
122767 
001011 
132767 
001405 
010067 
004767 
oo0co00 
132767 
001003 
112046 
001005 
005726 


016746 


105366 
002770 
004767 
105367 
000770 


112716 
004767 
132767 
001372 
005726 
000724 
105777 
100375 
116677 
122766 
001003 
105067 
000406 


166365 


000002 
000001 


000100 
000004 


000006 ' 


000040 


000002 
000011 
000200 


000130 


000056 
166230 


166220 
000001 


000032 
000072 


000040 
000014 
000007 


166144 


000002 
000015 


000014 


166432 
166423 


166401 


000052 


166136 
000002 


18 PAGE 


60 


TYPE ROUTINE 


STYPE: 


1$: 


615: 
62S: 


25: 
605: 
35: 
4S: 


5S: 
6S: 


7$: 


8$: 
9S: 


STYPEC: 


TSTB 
8 


STPFLG 
1$ 


3$ 

RO, -(SP) 
O2(SP),RO 
#APTENV, SENV 


62$ 
#APTSPOOL, SENVM 
62% 


RO, 61% 
PC, SATY3 


0 
#APTCSUP, SENVM 
0$ 


6 

(RO)+, -(SP) 
4§ 

(SP)+ 

(SP )+,R0 
#2, (SP) 
#HT, (SP) 

8 

#CRLF. (SP) 
5$ 


(SP )+ 


SCHARCNT 


23 
PC, STYPEC 
GFILLC, (SP)+ 


2$ 
SNULL, - (SP) 


1 (SP) 

6% 

PC, $TYPEC 
SCHARCNT 
7$ 


PROCESSOR 
#' . (SP) 


PC, STYPEC 
#7, SCHARCNT 
9 


$ 
2(SP), dSTPB 
#CR, 2(SP) 


1$ 
SCHARCNT 
STYPEX 


i lS THERE A TERMINAL? 


IF YES 
WALT WERE 1F NO TERMINAL 


++ SAVE RO 
++GET ADDRESS OF ASCIZ STRING 
++RUNNING IN APT MODE 
++NO,GO CHECK FOR APT CONSOLE 
++SPOOL MESSAGE TO APT 
++NO,GO CHECK FOR CONSOLE 
++ SETUP MESSAGE ADDRESS FOR APT 
++ SPOOL MESSAGE TO APT 
+; MESSAGE ADDRESS 
+; APT CONSOLE SUPPRESSED 
++ YES, SKIP TYPE OUT 
++PUSH CHARACTER TO BE TYPED ONTO STACK 
+;BR IF IT ISN'T THE TERMINATOR 
+; 1F TERMINATOR POP IT OFF THE STACK 
>+RESTORE RO 
++ ADJUST RETURN PC 
+ RETURN 
;;BRANCH IF <HT> 


+;BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
>; TYPE A CR AND LF 


>; CLEAR CHARACTER COUNT 

>;GET NEXT CHARACTER 

;;GO TYPE THIS CHARACTER 

;;1S 17 TIME FOR FILLER CHARS. ? 
>; 1F NO GO GET NEXT CHAR 

>;GET * OF FILLER CHARS. NEEDED 
;;RANO THE NULL CHAR. 

;;DO0ES A NULL NEED TO BE TYPED? 
;;BR IF NO--GO POP THE NULL OFF OF STACK 
7;GO TYPE A NULL 

;;D00 NOT COUNT AS A COUNT 
31:00? 


++ REPLACE TAB WITH SPACE 
; TYPE A SPACE 

>: BRANCH 1F NOT AT 

>; TAB STOP 

;;POP SPACE OFF STACK 

;;GET NEXT CHARACTER 

;;WAIT UNTIL PRINTER IS READY 


++ LOAD CHAR TO BE TYPED INTO DATA REG. 
>; 1S CHARACTER A CARRIAGE RETURN? 

;; BRANCH 1F NO 

is DS CHARACTER COUNT 

>; EXI 


SEQ 0058 


OZ0UT-B MACY11 3011046) 


LZ2DUTB. M11 


2969 
2970 
2971 
2972 
2973 
2974 
2975 


013332 
013340 
013342 
013344 
013346 


013350 
013356 
013362 
013366 
013370 
013372 
013374 
013400 
013404 
013410 
013412 
013416 
013422 
013426 
013430 
013434 
013436 
013442 
013444 
013452 
013454 
013456 
013460 
013462 
013464 


013466 
013470 
013474 
013500 
013504 
013510 
013514 
013516 
013520 
013524 
013530 
013532 
013536 
013540 
013544 
013546 
013552 
013554 
013560 


21-SEP-77 09:18 PAGE 61 


31-MAY-77 09: 49 
000012 000002 


122766 
001402 
105227 
000000 
000207 


017667 
062716 
105767 


000002 


011605 
012567 
012567 
012567 
112567 
112567 
010516 
005005 
012704 
122714 
001420 
121427 
002415 
121427 
003012 
142714 
152405 
122714 
001414 


000003 9000014 
000002 


166160 


016146 
000007 
166034 
166030 
000200 
000025 
000015 
16€006 


165776 


000162 
000160 
000156 
000154 
000151 


016146 
000015 
000060 
000067 
000060 
000015 


166000 


TYPE ROUTINE 


1$: 


INCB 
SCHARCNT: . WORD 


STYPEX: 


_ INSTR: 


_ INSTI: 


. MSG: 


1$: 


_ INSTE: 


INSTR2: 


. PARAM: 


PARAM: 


CMPB 
BEQ 


RTS 


#LF,2(SP) ++ 1S CHARACTER A LINE FEED? 
STYPEX ++ BRANCH IF YES 

(PC)+ ++COUNT THE CHARACTER 

; +; CHARACTER COUNT STOPAGE 

C 


ASCII STRING INPUT ROUTINE 


a(SP),. MSG +PICK UP MESSAGE 
#2, (SP) ; JUMP AROUND MESSAGE FOR RTI 
SENV ;APT CONTROL 
INSTR2 + YES NO TYPE 
# INBUF, RY ;GET STARTING LOC OF INBUF 
#7,R3 ;MAX # OF CHARS 
a$TKS ;TTY FLAG 
1% 
OSTKB, (R4) > TAKE CHAR 
#200, (R4) > STRIP 
(R4), #25 71S IT * & 
. INSTI 
(R4)+, #15 > CHECK FOR CR 
INSTR2 
the : TEST FLAG 
$ 
OSTKB, dSTPB ECHO CHARACTER 
R3 ;D1D YOU TYPE TOO MANY CHARS ? 
1$ 


re 
_INST1 ;RETRY 


> CONVERT ASCII STRING TO OCTAL 


(SP),.RS ;PUT CONTENTS OF SP INTO R5 
(R5)+,LOLIM ;PUT LOW LIMIT INTO LOLIM 
(R5)+,HILIM +PUT HIGH LIMIT INTO HILIM 
(R5)+, DEVADR PUT STORE LOC INTO DEVADR 
(R5)+,LOBITS >PUT MASK INTO LOBITS 

(R5)+, ADRCNT ;PUT COUNT INTO ADRCNT 

RS, (SP) ;RESTORE RETURN ADDR ON STACK FOR RTI 
R 


5 

# INBUF.R4Y 

#15, (RY) *CR ? 
PARERR ;YOU TYPED CR TOO SOON ! 
(R4), #60 -LOW LIMIT ASCII O 
PARERR 

(RY), #67 +HIGH LIMIT ASCII 7 
PARERR 

#60, (R4) * CONVERT TO OCTAL 
(R4Y)+,R5 + STORE AWAY {TS AN OK CHAR 
#15, (R4) ;CR ? 


LIMITS «NOW CHECK FOR HIGH BLOW LIMIT CONDS 


ee 4 
| 


SEQ 0059 


oe ae 


DZDUT-B MACY11 30(1046) 


D2DUTB. M11 


013562 
013564 
013566 
013570 
013572 
013576 
013600 
013604 
013606 
013610 


013612 
013616 
013620 
013624 
013626 
013632 


013634 
013640 
013642 
013646 
013652 
013654 
013656 
013660 
013662 
013664 


013666 


013674 
013700 
013704 
013710 
013714 
013720 
013724 


013726 
013732 
013736 
013742 
013746 
013752 


31-MAY-77 


006305 
006305 
006305 
000760 
122714 
001003 
005737 
001023 
104407 
000742 


020567 
101365 
020567 
103762 
136705 
001357 


016704 
010524 
062705 
105367 
001372 
000002 
000000 
006000 
000000 
ooo00c 
013665 


016667 


010567 
010467 
010367 
010267 
010167 
010067 
000002 


016700 
016701 
016702 
016703 
016704 
016705 


09 


000015 
013032 


000042 
000032 
000032 


000022 


000002 
000013 


000004 


165574 
165566 
165560 
165552 
165544 
165536 


165530 
165526 
165524 
165522 
165520 
165516 


21-SEP-77 09:1 
49 


165232 


8 PAGE 62 
TYPE ROUTINE 
ASL RS ;ALLOCATE ROOM FOR NEXT CHAR 
ASL RS 
ASL RS 
BR 1$ 
PARERR: CMPB #15, (RY) ;CR? 
BNE 120% 
TST d#ROSW +CK SWR USED 
BNE PARTI 
1205: INSTER ; RETRY 
BR PARAM 
; TEST TO SEE IF NUMBER IS WITHIN LIMITS 
LIMITS: CMP RS, HILIM 
BHI PARERR ;THE # IS TOO HIGH 
CMP R5.LOLIM 


BLO PARERR ; THE # IS TOO LOW 
BiTB LOBITS,R5 + TEST BY MASKINGTHE & 


BNE PARERR 
; STORE NUMBER AT SPECIFIED ADDRESS 
MoV DEVADR. RY ;GET STARTING ADDR OF 
1S: MOV R5, (R4)+ ; STORE AT THIS ADOR 
; ADD #2,R5 
DECB ADRCNT ;HOW MANY TIMES + 2 ? 
BNE 1$ 
PARTI: RTI 
LOLIM: 0 
HILIM: 0 
DEVADR: 0 
LOBITS: 0 


ADRCNT=LOBITS+1 

;SAVE PC OF TEST THAT FAILED AND RO-RS 
. SAVOS: MOV 4 CSP), SAVPC 

SAVE RO-RS 


SvOos: MOV R5, SREGS 
MOV R4, SREGY 
MOV R3, SREG3 
MoV R2, SREGZ 
MOV Ri, SREG1 
MoV RO, $REGO 


*RESTORE RO-R5 


-RESOS: MoV SREGO. RO 
MOV SREG1.R1 
MOV SREGZ.R2 
MOV SREG3.R3 
MOV SREGY, RY 
MoV SREGS, RS 





DZ2DUT-B MACY11 30(1046) 
31-MAY-77 


DZDUTB. M11 


013756 


013760 
013762 
013764 
013770 
013774 
014000 
014004 
014010 


014014 
014020 
014024 
014030 
014032 
014036 
014042 
014044 
014046 
014050 
014052 
014054 
014056 
014062 
014064 
014070 
014072 
014076 
014100 
014104 
014110 
014112 
014114 
014116 
014120 
014124 
014126 
014130 
014132 


014134 


014136 
014142 
014150 
014152 
014154 
014156 


000002 


104401 
015437 
017601 
062716 
012167 
112167 
112167 
013167 


016704 
116705 
012700 
010403 
042703 
062703 
110320 
006204 
006204 
006204 
005305 
001365 
012703 
114023 
105367 
001374 
105767 
001405 
112723 
105367 
001373 
105013 
104401 
016252 
005367 
001325 
000002 
000000 
000000 
014133 
000000 


017605 
122767 
001002 
105015 
000406 
122767 


09: 


000000 
000002 
000130 
000125 
000123 
000120 


000114 
000106 
016210 


177770 
000260 


016252 
000042 
000035 


000240 
060023 


000004 


000000 
000116 


000131 


001776 


001762 


= _ 77 +09:18 PAGE 63 


TYPE ROUTINE 


. CONVR: 


18: 


2$: 


33: 


\ 4S: 


5S: 


6$: 


RTI 


+CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


TYPE 
MCRLF 


WROCNT: O 


CHRCNT: O 
SPACNT=CHRCNT +1 
BINWRD: O 


15: 


:CR LF 
a(SP),R1 ;PICK UP DATA POINTER 
#2, (SP) ;SET UP SP FOR RTI 


(R1)+, WROCNT +PICK UP # OF WORDS FROM TABLE 
(R1)+, CHRCNT ;PICK UP # OF CHARS FROM TABLE 
(R1)+, SPACNT ;PICK UP # OF SPACES FROM TABLE 
O(R1)+,BINWRD ;PICK UP ADDRESS OF MSG 

+FROM TABLE 


BINWRD, RY + SAVE 

CHRCNT, RS + SAVE 

#TEMP, RO ; STARTING ADDRESS OF TEMP BLOCK 
R4,R3 + SAVE 

#177770.R3 ;CLR OUT UPPER BITS .. SAVE CHAR 
#260,R3 ;CONVERT TO ASCII 

R3, (RO)+ + STORE AWAY 

R4 +; SHIFT FOR NEXT &# 

R4 DITTO 

R4 DITTO 

R5 *DEC CHAR COUNT 

3$ +00 IT AGAIN ? 

#MDATA, RZ + STARTING ADDRESS OF MDATA BLOCK 


~(RO), (R3)+ +REVERSE THE ORDER OF NUMBERS 
CHRCNT ;DEC CHAR COUNT 
4§ ;D0 IT AGAIN ? 
SPACNT ;HOW MANY SPACES ? 


6$ 7; TYPE # IF BR =0 

#240, (R3)+ "SPACE" IN ASCII 
SPACNT ;DEC # OF roe COUNT 

5% ;D0 IT AGAIN 


(R3) + INSERT “O" FOR TTY OUTPUT ROUTINE 


+ THIS MESSAGE 

WROCNT ;>HOW MANY #'S ? 

1% ;D0 THIS ROUTINE AGAIN IF NOT EQUAL TO O 
RETURN TO PROGRAM 


*COMPARE THE FIRST CHARACTER IN THE ws INPUT 
;BUFFER TO THE CHARACTERS "“N" AND ' 

7 1F THE CHARACTER IS "N" CLEAR THE FLAG 

;1F THE CHARACTER IS "Y" SET THE FLAG 


. SETFLG: MOV 


CMPB 


a(SP),R5 

#'N. INBUF 516.05 “wr YF 
1$ 

(R5) +000 

2$ 

#'Y, INBUF gw 7 


SEQ 0061 


DZDUT-B MACY11 30(1046) 


DZ0UTB. M11 


014164 
014166 
014172 
014176 
014200 
014202 


014204 
014204 
014210 
014212 
014220 
014226 
014230 
014234 
014240 
014244 
014252 
014260 
014266 
014270 
014274 
014300 
014300 
014306 
014310 
014316 
014322 
014323 
014324 


014366 
014372 


31-MAY-77 09:4 


001005 
112715 
062716 
000002 
104407 
000755 


105267 
001775 
016777 
032777 
001402 
104401 
005267 
011667 
162767 
117767 
032777 
001004 
004767 
104401 


122767 


016716 


000002 
010067 
010167 


177777 
000002 


165173 


165164 
002000 


001516 
165152 
165152 
000002 
165140 
020000 


000072 
001523 


000001 
165100 


000016' 


165106 


001000 


165036 
165136 


165130 


164536 
164534 


165222 
165212 


165144 
165134 
165152 


165240 
000004 


165074 


21- a 77 09:18 PAGE 64 


TYPE ROUTINE 


BNE 

MOVB 
23: “91 
3$: INSTER 


BR . SETFLG 
.SBTTL ERROR HANDLER ROUTINE 


3$ 
#-1, (R5) 
#2, (SP) 


RETRY 


+377 


+ ¢ MAEXAAAAAAAAARAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EAS 
>XTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
»XSAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

;*AND GO TO SAVIT ON ERROR 
+XTHE SWITCH, OPTIONS tae be BY THIS ROUTINE ARE: 


+ kSW15=1 

> xSW13=1 

+ *SW10=1 

+ XSWO9=1 

> XCALL 

;x ERROR 

SERROR: 

75: INCB 
BEQ 
MOV 
BIT 
BEQ 
TYPE 

15: INC 
MOV 
SUB 
MOVB 
BIT 
BNE 
JSR 
TYPE 

20S: 
CMPB 
BNE 
nove 
JSR 

215: . BYTE 
. BYTE 

225: BR 

23: TST 
BPL 
HALT 

3$ BIT 
BEQ 
MoV 

4S TST 
BEQ 
MOV 

5S: 
RTI 

SAVIT: MOV 
MoV 


HALT ON E 


RRO 
INHIBIT ERROR TYPEOUTS 


BELL ON ERROR 
LOOP ON ERROR 


N ;;>ERROR=EMT AND N=ERROR ITEM NUMBER 
SERFLG ++SET THE ERROR FLAG 
7$ +;DON'T LET THE FLAG GO TO ZERO 


STSTNM. dDISPLAY 


#B1T10, dSWR 


(SP), SERRPC 
#2, SERRPC 


OSERRPC, SITEMB 


#B1T13,. dSHP 
208 

PC, SAVIT 

, SCRLF 
#APTENV, SENV 
$ 


2 
SITEMB, 21% 
PC, SATYS 


#31T09, dSWR 
4$ 


SLPERR. (SP) 
SESCAPE 


5$ 
SESCAPE. (SP) 


RO, HLDO 
Ri, HLO1 


;;DISPLAY TEST NUMBER AND ERROR FLAG 
+;BELL ON ERROR? 

++NO - SKIP 

>-RING BELL 

;;COUNT THE NUMBER OF ERRORS 

;;GET ADDRESS OF ERROR INSTRUCTION 


+;STRIP AND SAVE THE ERROR ITEM CODE 
+;SKIP TYPEOUT IF SET 

+;SKIP TYPEOUTS 

+7GO TO USER ERROR ROUTINE 


;;RUNNING IN APT MODE 

+;NO, SKIP APT ERROR REPORT 

+;SET ITEM NUMBER AS ERROR NUMBER 
+;REPORT FATAL ERROR TO APT 


;; APT ERROR LOOP 

;;HALT ON ERROR 

+-SKIP IF CONT I NUE 

;-HALT ON ERROR 

;;LOOP ON ERROR SWITCH SET? 

;;BR IF NO 

;;FUDGE RETURN FOR LOOPING 

7; CHECK FOR AN ESCAPE ADDRESS 
7;BR IF NONE 

7,FUDGE RETURN ADDRESS FOR ESCAPE 


>; RETURN 


SEQ 0062 


DZOUT-B MACY11 30(1046) 


DZ0UTB. M11 


014376 
014402 
014406 
014412 
014416 


014424 
014424 
014430 
014432 
014434 
014440 


014442 


014446 
014450 
014452 
014454 
014456 
014460 
014462 
014466 
014472 
014474 
014476 
014500 
014504 
014510 
014512 
014514 
014516 
014522 
014524 
014526 
014530 
014534 
014536 
014536 
014540 
014542 
014544 
014546 
014552 
014554 


21-SEP-77 09:18 PAGE 65 


31-MAY-77 09: 49 ERROR HANDLER ROUTINE 
010267 164532 MOV R2, HLDZ 
010367 164530 MOV R3,HLD3 
010467 164526 MOV R4, HLDY 
010567 164524 MOV R5, HLDS 
016767 164760 164520 MOV STSTNM, HLD6 


104401 
010046 
005000 
153700 
001004 


016746 


104402 
0004 26 
005300 
006300 
006300 
006300 
062700 
012067 
001404 
104401 
000000 
104401 
012067 
001404 
104401 
000000 
104401 
011000 
001004 
012600 
104491 
000207 


013046 
104402 
005710 
001770 
104401 
000771 
020040 
014560 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


+s AAXAAAAAAAAAAA AAT AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAS 

+XTHIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
,XERROR 1S TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” (SERRTB), 
;XAND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
001523 TYPE , SCRLF 3; "CARRIAGE RETURN" & "LINE FEED” 
MOV RO. -(SP) ;;SAVE RO 
CLR RO ;;PICKUP THE ITEM INDEX 
001414 BISB a#$1TENB.RO 
BNE 1% 77 1F ITEM NUMBER IS ZERO, JUST 
>; TYPE THE PC OF THE ERROR 
164750 MoV SERRPC, -(SP) ;;SAVE SERRPC FOR TYPEOUT 
+7ERROR ADDRESS 
TYPOC ;+-GO TYPE--OCTAL ASCIICALL DIGITS) 
BR 6$ +;GET OUT 
1$: DEC RO ;;ADJUST THE INDEX SO THAT IT WILL 
ASL RO b WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
001652 ADD #SERRTB. RO ;;FORM TABLE POINTER 
000004 MOV (RO)+, 2$ ;;PICKUP “ERROR MESSAGE” POINTER 
BEQ 3$ ;;SKIP TYPEOUT IF NO POINTER 
TYPE 7; TYPE THE “ERROR MESSAGE" 
28: WORD O +; "ERROR MESSAGE” POINTER GOES HERE 
001523 TYPE , 9CRLF 7; "CARRIAGE RETURN" & “LINE FEED" 
000004 35: MoV (RO) +,4§$ ;;PICKUP “DATA HEADER" POINTER 
BEQ 5$ >; SKIP TYPEOUT IF O 
TYPE 7; TYPE THE “DATA HEADER" 
: 4S: .WORD O ;;"DATA HEADER" POINTER GOES HERE 
001523 TYPE , SCRLF ;;"CARRIAGE RETURN" & “LINE FEED” 
5S. MOV (RO), RO ;;PICKUP “DATA TABLE" POINTER 
BNE 7$ ;:GO TYPE THE DATA 
65: MOV (SP)+,RO ;;RESTORE RO 
001523 TYPE , SCRLF 3; "CARRIAGE RETURN" & “LINE FEED" 
RTS PC ;; RETURN 
74: 
MoV a(RO)+,-(SP) 3; SAVE da(RO)+ FOR TYPEOUT 
TYPOC ;;GO TYPE--OCTAL ASCIICALL DIGITS) 
TST (RO) +; 1S THERE ANOTHER NUMBER? 
BEQ 6$ 7;BR IF NO 
014554 TYPE ,8$ 7; TYPE TWO(2) SPACES 
BR 7$ +; LOOP 
000 85: -ASCIZ 7 7 +; TWO(2) SPACES 


. EVEN 
_SBTTL BINARY TO OCTAL (ASCII!) AND TYPE 
pe $$$ $295500250500505999920000 6039 > 00905200399 2029 2502525055808: 


SEQ 0063 
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014560 
014564 
014572 
014576 
014602 
014604 
014612 
014620 
014626 
014630 
014632 
014634 
014640 
014642 
014646 
014652 
014656 
014662 
014664 
014666 
014670 
014672 
014674 
014676 
014700 
014702 
014706 
014710 
014714 
014716 
014720 
014722 
014724 
014730 


017646 
116667 
112667 
062716 
000406 
112767 
112767 
112767 
010346 
010446 
010546 
116704 
005404 
062704 
110467 
116704 


052703 


n § 
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000000 
000001 
000207 
o00c002 


000001 


000006 
000005 


000145 
000006 
000132 


000125 
000012 


000076 
177770 


000060 
000040 


000211 


000171 
000165 
000154 


BINARY TO OCTAL (ASCII) AND TYPE 


*KTHIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


*+*KOCTAL (ASCII) NUMBER AND TYPE 


| 
a HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


**CALL 


». Be Be Be Be Be Be Be Be Be B ee ee ee ee ee 
Pe PE PE PE DE FE DE DE DE DE FE FE FE DE DE FE DE 


MoV NUM, - (SP) +;+NUMBER TO BE TYPED 

TYPOS +;CALL FOR TYPEOUT 

.BYTE oN ;;N21 TO 6 FOR NUMBER OF DIGITS TO TYPE 
BYTE M 77M=1 OR O 


++1=TYPE LEADING ZEROS 
++ O=SUPPRESS LEADING ZEROS 


STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
STYPOS OR STYPOC 


CALL: 
MOV NUM, - (SP) ;;NUMBER TO BE TYPED 
TYPON ;;CALL FOR TYPEOUT 
ae ae HERE FOR TYPEOUT OF A 16 BIT NUMBER 
LL: 
MoV NUM, - (SP) >;NUMBER TO BE TYPED 
TYPOC ;7CALL FOR TYPEOUT 
STYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
MOVB 1(SP),S0F ILL ;;LOAD ZERO FILL SWITCH 
MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIG!TS TO TYPE 
ADD #2, (SP) ;;ADJUST RETURN ADDRESS 
BR STYPON 
STYPOC: MOVB #1, S0F ILL ;;SET THE ZERO FILL SWITCH 
MOVB #6, SOMODE +1 ;;SET FOR SIX(6) DIGITS 
STYPON. MOVB #5, S0CNT ;;SET THE ITERATION COUNT 
MOV R3,-(SP) 7+SAVE RZ 
MoV R4, - (SP) 7; SAVE RY 
MOV RS, -(SP) 7; SAVE RS 
~+y aint +;GET THE NUMBER OF DIGITS TO TYPE 
N uy 
ADD #6,R4 ;; SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4, SOMODE ;;SAVE IT FOR USE 
MOVB SOF ILL. R4 ;;GET THE ZERO FILL SWITCH 
MoV 12(SP),R5 ;;PICKUP THE INPUT NUMBER 
CLR R3 ;;CLEAR THE OUTPUT WORD 
15: ROL RS ;;ROTATE MSB INTO “C" 
BR 3$ +:GO DO MSB 
2S: ROL RS ;;FORM THIS DIGIT 
ROL R5 
ROL RS 
MoV RS,R3 
35: ROL R3 ;;GET LSB OF THIS DIGIT 
DECB SOMODE 7; TYPE THIS DIGIT? 
BPL 7% ;-BR IF NO 
BIC #177770,R3 +:GET RIO OF JUNK 
BNE 4S 3; TEST FOR O 
TST RY 7+SUPPRESS THIS 0? 
BEQ 59 >-BR IF YES 
4S: INC RY ;;DON'T SUPPRESS ANYMORE O'S 
BIS #'O,R3 >;MAKE THIS DIGIT ASCII 
5S: BIS #' .R3 ;;MAKE ASCII IF NOT ALREADY 


SEQ 0064 
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014734 
014740 
014744 
014750 
014752 
014754 
014756 
014760 
014762 
014764 
014766 
014774 
014776 
015000 
015001 
015002 
015003 
015004 


015006 
015006 
015010 
015012 
015014 
015016 
015620 
015022 
015026 
015032 
015040 
015042 


015044 
015050 
015052 
015054 
015056 
015060 
015062 
015064 
015072 
015076 
015102 
015106 
015112 
015114 
015116 
015120 
015122 
015124 
015130 
015134 
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110367 
104401 
105367 
003347 
002402 
005204 
000744 


000000 


010046 | 


010146 
010246 
010346 
010446 
010546 
016746 
010667 
012767 
000000 
000777 


016706 
012605 
012604 
012603 
012602 
012601 
012600 
012767 
106427 
012706 
005067 
005267 
001375 
1044123 
015140 
104401 
015442 
005067 
005067 
000177 


N 5 
67 
BINARY TO OCTAL (ASCII) AND TYPE 


R3, 8$ 


(SP)+,R5 
(SP)+, RY 
(SP)+,R3 
2(SP),4 (SP) 
(SP) +, (SP) 


0 
0 
0 
0 


+; SAVE FOR TYPING 

+:G0 Lg ss DIGIT 

+; COUNT BY 

+7 BR iF FORE TO DO 

+;BR IF DONE 

++ INSURE LAST DIGIT ISN'T A BLANK 
+:GO0 DO THE LAST DIGIT 

+; RESTORE RS 

+;RESTORE RY 

;sRESTORE RZ 

;;SET THE STACK FOR RETURNING 


>+RETURN 

++ STORAGE FOR ASCII! DIGIT 

++ TERMINATOR FOR TYPE ROUTINE 
;,O0CTAL DIGIT COUNTER 

++ZERO FILL SWITCH 

;;NUMBER OF DIGITS TO TYPE 


WORD OQ 
VENTER HERE ON POWER FAILURE 


RO, -(SP) 
R1,-<SP) 
R2,-(S?) 
R3,-(SP) 
R4,-(SP) 
RS, - (SP) 
24, - (SP) 
SP. SAVSP 
RRESTART, 24 


+ SAVE RO-R5S ON PROCESSOR STACK 


+SAVE STACK POINTER 
*SET UP FOR POWER UP TRAP 
+HALT ON POWER DOWN NORMAL 


-PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


21-SEP-77 09:18 PAGE 

000040 

015000 

000032 75: 
6$: 

000002 0d00004 
8$: 
SOCNT: 
SOFILL: . 
SOMODE: 
SPWRON: 
_PFAIL: 

162776 

164064 

015044 162764 

164046 RESTAR: 

015006 162732 

000340 

001100 

001102 

001076 

164253 

164262 

163744 


SAVSP. SP 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
#. PFAIL, 24 
#340 
A SP 


SERFLG 
SERRPC 
ORE TURN 


RESTORE STACK POINTER 
RESTORE RO-RS 


+SET UP FOR POWER FAILURE 


SEQ 6065 


i ee ee eee ee Ee eee i ee Sl lll —_ 


(ee 
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015140 
015142 
015144 
015146 
015154 
015162 
015170 
015176 
015201 
015206 
015214 
015222 
015230 
015236 
015244 
015252 
015260 
015266 
015273 


015574 
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000001 


020131 


002 


042012 
042040 
041055 
020105 

000 
053012 
042104 
051461 
035126 
041440 
042104 
052515 


051124 


047412 
051072 
020105 
042040 
041530 
042104 


037440 
000012 


051117 


053125 
042132 
052040 
020104 


041505 


042104 
044526 


043505 


043126 
052105 
040514 
053105 
051123 
026523 


000 


026114 
052123 
052101 
020124 
047522 
000123 
020104 
051501 
042520 


000 
051505 
000055 
045503 
052040 
024040 
047040 


PF TRB: 


MTITLE: 


MVECTO: 
MREGAD: 


MMULT: 


MLASTD: 


DEVICE: 


MCOW: 


MRANGE: 


M@nM: 
MCRLF: 


MPFAIL: 


MEPASS: 


MR: 
MTSTPC: 


MLOCK: 


18 PAGE 68 
BINARY TO OCTAL 


1 
BYTE 


RETURN 
-ASCI2Z 


.ASCIZ 
/ASCIZ 


-ASCIZ 


-ASCIZ 


. ASCIZ 
. ASCIZ 


.ASCIZ 


. ASCIZ 
. ASCIZ 
- ASCIZ 


.ASCIZ 


.ASCIZ 
. ASCIZ 


. ASCIZ 


te 


B 6 
(ASC!1) AND TYPE 


6,2 
€15><12><12>/DUV11 DZDUT-B TAPE D 7<15><12> 


<15><12>/VEC ADD-/ 
<15><12>71ST DEV: REC CSR ADD-/ 


<15><12>7MULT DEV ? (Y OR N)-7 


<15><12>/LAST DEV: REC CSR ADDR-7 


7=DEVICE 7 
<15><12>/7SELECT TO RUN OACTREG/Z 


<15><12>/0VFLO: RETYPE LAST DEV RXCSR ADDS-/ 


ed 
€15><12> 
/PFAIL, RESTART AT TEST IN PROGRESS/ 


<15><12>7END OF PASS TAPE D/ 


€15><12>7R7 
€15><12>/TEST PC-7 


415><12>7LOCK ON TEST? (Y OR N)-/7 


SEQ 0066 


C 6 
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3417 015602 026451 000 

3418 015605 O15 021412 O47440 MSYNC: .ASCIZ ¢15><12>/# OF SYNC CHARS SELECTED ( 1 OR 2)-/ 
3419 015612 020106 054523 041516 

3420 015620 041440 040510 051522 

3421 015626 O51440 046105 041505 

3422 015634 042524 020104 020050 

3423 015642 020061 051117 031040 

3424 015650 026451 000 ‘ 

3425 015653 015 O844412 020123 MWIRE6: .ASCIZ <15><12>71S SEC XMIT SWITCH E55-2 IN? (Y OR N)-/ 
3426 015660 042523 020103 046530 

3427 015666 052111 051440 044527 

3428 015674 041524 020110 032505 

3429 015702 026465 020062 047111 

3430 015710 020077 054450. 047440 

3431 015716 020122 024516 000055 

3432 015724 005015 051511 O51440 MWIRES: .ASCIZ <15><12>71S SEC REC SWITCH E55-3 IN? (Y OR N)-/ 
3433 015732 041505 051040 041505 

3434 015740 O51440 044527 041524 

3435 015746 020110 032505 026465 

3436 015754 020063 047111 020077 

3437 015762 C54450 047440 020122 

3438 015770 024516 000055 

3439 015774 005015 051511 O87440 MNIREY: .ASCIZ <15><12>71S OPT CLR ENABLE SWITCH E55-1 IN? (Y OR N)-7 
3440 016002 052120 O41440 051114 

3441 016010 042440 040516 046102 

3442 016016 020105 0572523 052111 

3443 016024 044103 O42440 032465 

3444 016032 O30455 O44440 037516 

3445 016040 O24040 020131 051117 

3446 016046 O47040 026451 coo 

3447 016053 015 005012 031510 MEXTJ: .ASCIZ <15><12><12>7H315 CONNECTOR ON ?7(Y OR N)-7 
3448 016060 032461 O41440 047117 

3449 016066 042516 052103 051117 

3450 016074 047440 020116 024077 

3451 016102 020131 051117 047040 

3452 016110 026451 000 

3453 016113 015 020012 043536 MCNTG: .ASCIZ <15><12>7 G /¢ 

3454 016120 020040 000 

3455 016123 O40 053523 036522 MMSWR: .ASCIZ 7 SWR= 7 

3456 016130 020040 9000040 

3457 016134 020040 047040 053505 MMNEW: .ASCIZ 7 NEWS / 

3458 016142 020075 000040 


3459 _ EVEN 

3460 

3461 :BUFFERS FOR INPUT-OUTPUT 
3462 

3463 016146 000000 INBUF: 90 

3464 016210 _ =. +40 

3465 016210 000000 TEMP: 0 

3466 016252 . =. +40 

3467 016252 000000 MDATA: 90 

3468 016314 . =. +40 

3469 .SBTTL SCOPE HANDLER ROUTINE 
3470 

3471 oe $25 05200500255559959 599599999 92253 9520522992 02532222350903 5203) 


3472 > THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
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DZ2DUTB. M11 31-MAY-77 09:49 SCOPE HANDLER ROUTINE SEQ 0068 
3473 ;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7: 0>) 
3474 ;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15: 08> 
3475 ;XTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

3476 > *SW14=1 LOOP ON TEST 

3477 +*SW11=1 INHIBIT ITERATIONS 

3478 + *SWO9=1 LOOP ON ERROR 

3479 + XSWO8=1 LOOP ON TEST IN SWR<7: 0 

3480 > ¥CALL 

3481 eS SCOPE +; SCOPE=10T 

3482 ae 

3483 016314 SSCOPE: 

3484 a 

ae SCOPE LOOP AND INTERATION HANDLER 

3487 016314 . SCOPE: 

3488 016314 004767 174376 JSR PC. CKSWR 

3489 016320 005067 163072 CLR SERRPC > CLEAR LAST ERROR PC 

3490 016324 022716 003376 CMP #TST1+2, (SP) + 1S SCOPE AT BEGINING OF TEST 1? 

ab 016330 001422 BEQ SXTSTR + YES NO LOOP. 

3493 016332 ©32777 O4¥OOO0D 163100 TTST: BiT #BIT1I4, dSHR ; THIS CODE 1S FOR TESTING FOR BIT 14 
3494 016340 001412 BEQ 1$ 7ON LS! WHICH SYSMAC CANNOT HANDLE 
3495 016342 016767 163034 162036 MOV STSTNM, SLPADR 

3496 016350 O00406.: BR 1$ 

3497 016352 105777 163066 TSTB aSTKS Am Yet gm DONE? 

3498 016356 100123 BPL SOVER + BR NO 

3499 016360 017766 163U62 177776 MOV OSTKB, -2(SP) CLEAR DONE BIT 

3500 016366 032777 O40000 163044 1%: BIT #B1T14, dSWR +;LOOP ON PRESENT TEST? 

3501 016374 001114 BNE SOVER 77YES IF SWi4=1 

3502 ,RRARASTART OF CODE FOR THE XOR TESTER#&RRE 

3503 016376 O004%16 SXTSTR: BR 6$ +; 1F RUNNING ON THE "XOR" TESTER CHANGE 
3504 +7 THIS INSTRUCTION TO A "NOP" (NOP=240) 
3505 016400 013746 000004 MoV OFERRVEC,-(SP) +; SAVE THE CONTENTS OF THE ERROR VECTOR 
3506 016404 012737 016424 000004 MoV #59, QHERRVEC ++SET FOR TIMEOUT 

3507 016412 005737 177060 TST #177060 +2 TIME OUT ON XOR? 

3508 016416 012637 O00004 MOV (SP)+,@8ERRVEC +; RESTORE THE ERROR VECTOR 

3509 016422 000463 BR S$SVLAD ++GO TO THE NEXT TEST 

3510 016424 022626 5S: CMP (SP)+, (SP)+ +;CLEAR THE STACK AFTER A TIME OUT 
3511 016426 012637 000004 MoV (SP)+,@#ERRVEC +; RESTORE THE ERROR VECTOR 

3512 016432 000423 BR 7$ +;LOOP ON THE PRESENT TEST 

3513 016434 6S: ; #8RRREND OF CODE FOR THE XOR TESTERSR&RS 

3514 016434 032777 OOO400 162776 BIT #8 1T08. SHR +;LOOP ON SPEC. TEST? 

3515 016442 0014904 BEQ 2$ ;7BR IF NO 

3516 016444 127767 162770 162730 CMPB @SHR, STSTNM +30N THE RIGHT TEST? SWR <7: O> 

3517 016452 001465 BEQ SOVER *+7BR IF YES 

3518 016454 105767 162723 2S: TSTB SERFLG +7HAS AN ERROR OCCURRED? 

3519 016460 001421 BEQ 33 +;BR IF NO 

3520 016462 126767 162727 162713 CMPB SERMAX.SERFLG +; MAX. ERRORS FOR THIS TEST OCCURRED? 
3521 016470 101015 BHI 3$ +7BR IF NO 

3522 016472 032777 001000 162740 BIT #B1T09. SHR ++LOOP ON ERROR? 

3523 016500 001404 BEQ 4§ +;BR IF NO 

3524 016502 016767 162702 162676 7%: MOV SLPERR. SLPADR 53 SET LOOP ADDRESS TO LAST SCOPE 

3525 016510 000446 BR SOVER 

3526 016512 105067 162665 4$: CLRB SERFLG ++ ZERO THE ERROR FLAG 

3527 016516 005067 162770 CLR STIMES +; CLEAR THE NUMBER OF ITERATIONS TO MAKE 


3528 016522 000415 BR 1$ +,ESCAPE TO THE NEXT TEST 


} 
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3529 016524 032777 OO4000 162706 33%: BIT #B1T11, dSWR ogy ITERATIONS? 
3530 016532 001011 BNE 1$ iG IF YES 
3531 016534 005767 162774 TST SPASS ai lF FIRST PASS OF PROGRAM 
3532 016540 001406 BEQ 1$ INHIBIT ITERATIONS 
3533 016542 005267 162636 INC S$ICNT ; 7 INCREMENT ITERATION COUNT 
3534 016546 026767 162740 162630 CMP STIMES, SICNT ++CHECK THE NUMBER OF ITERATIONS MADE 
3535 016554 002024 BGE SOVER ;-BR IF MORE ITERATION REQUIRED 
3536 016556 012767 000001 162620 15%: MOV #1,SI1CNT ;+REINITIALIZE THE ITERATION COUNTER 
3537 016564 016767 000056 162720 MOV SMXCNT.STIMES ¢;SET NUMBER OF ITERATIONS TO DO 
3538 016572 105267 162604 SSVLAD: INCB STSTNM +;COUNT TEST NUMBERS 
3539 016576 116767 162600 162726 MOVB STSTNM.STESTN ;¢;SET TEST NUMBER IN APT MAILBOX 
3540 016604 011667 162576 MOV (SP), SLPADR ++ SAVE SCOPE LOOP ADDRESS 
3541 016610 011667 162574 MOV (SP), SLPERR ++ SAVE ERROR LOOP ADDRESS 
3542 016614 005067 162674 CLR SESCAPE +;CLEAR THE ESCAPE FROM ERROR ADDRESS 
3543 016620 112767 000001 162567 MOVB #1, SERMAX +;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
3544 016626 016777 162550 162606 SOVER: MOV STSTNM, ADISPLAY ;; DISPLAY TEST NUMBER 
3545 016634 016716 162546 MOV SLPADR, (SP) ;;FUDGE RETURN ADDRESS 
3546 016640 000002 4% RTI 
3547 016642 001407 BRW 1407 
3548 016644 000422 BRX: 432 
3549 016646 CO0005 SMXCNT: 5 +; MAX.. NUMBER OF ITERATIONS 
ery _SBTTL TRAP DECODER 
1 
3552 +p RAEXKAAAAAAAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAT ETS 
3553 >KTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
3554 ;*¥AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
3555 ;XOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3556 ;*GO TO THAT ROUTINE. 
3557 
3558 016650 010046 STRAP: MOV RO, - (SP) >; SAVE RO 
3559 016652 016600 000002 MOV 2(SP),RO ++GET TRAP ADDRESS 
3560 016656 005740 TST - (RO) +;BACKUP BY 2 
3561 016660 111000 MOVB (RO).RO +;GET RIGHT BYTE OF TRAP 
3562 016662 006300 ASL RO ++POSITION FOR INDEXING 
3563 016664 016000 016704 MOV STRPAD(RO),.RO +; INDEX TO TABLE 
3564 016670 000200 RTS RO ++GO TO ROUTINE 
3565 
3566 
3567 +; THIS IS USE TO HANDLE THE "GETPRI" MACRO 
3568 
3569 016672 011646 STRAP2: MOV (SP), -(SP) ;;MOVE THE PC DOWN 
3570 016674 016666 000004 000002 MOV 4(SP),2¢SP) ;;MOVE THE PSW DOWN 
3571 016702 000092 RTI +-RESTORE THE PSW 
3572 
3573 .SBTTL TRAP TABLE 
3574 
3575 ; THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3576 ;*BY THE “TRAP” INSTRUCTION 
3577 
3578 ; ROUT INE 
3579 ; OSS 
3580 016704 016672 STRPAD: .WORD STRAP2 
3581 016706 013066 STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 
3582 016710 014604 STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
3583 016712 014560 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
3584 016714 014620 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
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016716 
016720 
016722 
016724 
016726 
016730 
016732 
016734 


016736 
016742 
016746 
016752 
016756 
016762 
016770 
016776 
017004 
017006 
017010 


017012 
017020 
017024 
017032 
017036 
017044 
017052 
017056 
017064 
017072 
017076 
017104 
017110 
017116 
017122 
017130 
017134 
017142 
017144 


017146 
017154 
017160 
017164 
017170 
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013044 
013350 
013456 
013466 
013666 
013726 
013760 
014136 


006367 
006367 
006367 
006367 
006367 
016767 
162767 
042767 
000207 
000240 
000200 


016767 
005267 
016767 
005267 
016767 
016767 
005267 
016767 
016767 
005267 
016767 
005267 
016767 
005267 
016767 
005267 
016767 
000207 
000000 


042777 
005067 
006067 
006067 
006267 


000044 
000040 
000034 
000030 
000024 
000020 
000001 
000037 


000126 
000120 
000114 
000106 
000102 
000074 
000066 
000062 
000054 
000046 
000042 
000034 
000030 
000022 
000016 
000010 
000004 


040000 
162322 
162314 
162312 
162306 


000020 
000012 
000004 


162672 
162662 


162652 
162650 


162634 
162632 


162622 
162612 
162602 
162572 


162552 


21- _ 77 +09:18 PAGE 72 


TRAP TABLE 


.SCOP1 +; CALL=SCOP1 TRAP +5 (104405) 
INSTR ;;>CALL=INSTR TRAP +6( 104406) 
_INSTER ;;>CALL=INSTER TRAP+7(104407) 
PARAM ;;CALL=PARAM TRAP +10(104410) 
.SAVOS ;;CALL=SAVO5 TRAP 411(104411) 
.RESOS ;;CALL=RESOS TRAP +12(104412) 
. CONVRT ;; CALL=CONURT tots obs se 
SETFLG ;;CALL=SETFLG  TRAP+14(104414 
| SNN00S2EEEDEOSET EO EESEEESPEOSENEESSSUASSSRESSLOOESSOOTELES 


UTILITIES 
ittttetttitettittttttitttttttittsitttssitttttstttt tts ttt ts 


+ THIS UTILITY CALCULATES ke LEVEL 
DULEV: ASL DUPRT ;SHIFT LEFT 


ASL DUPRT ; 
ASL DUPRT ; 
ASL DUPRT ; 
ASL DUPRT =; 
MoV DUPRT, LESS1 ;MOVE THIS TO LESS1 
SUB #1,LESS1 CREATE LESS1 
BIC #37,LESS1 + CLEAR TNZ2VC 
RTS PC 
DUPRT: PRS 
LESS1: PRY ;LEVEL TO ALLOW INTERRUPTS 


;NEW DU ADDRESSES 
DUADOR: MOV DUBASE. RXCSR + XXXO 


INC DUBASE 
MOV DUBASE.HRXCSR =; XXX1 
INC DUBASE 


MoV DUBASE.RXOBUF ;XXX2 
MoV DUBASE.PARCSR + XXX2 
INC DUBASE 

MOV DUBASE. HRXDBUF ; XXX3 
MOV DUBASE.HPARCSR ; XXX3 


INC DUBASE 

MOV DUBASE. TXCSR + XXX4 
INC DUBASE 

MOV DUBASE.HTXCSR =; XXX5 
INC DUBASE 

MoV DUBASE. TXDBUF ;XXX6 
INC DUBASE 

MOV DUBASE.HTXDBUF ; XXX7 
RTS PC 

DUBASE: 0 


; THIS UTILITY POKES THE MAINT DATA BASED UPON THE 
> INFORMATION CONTAINED IN STMP1 AND IT ‘S 
; SHIFTED IN BY THE CONTENTS OF SHIFT 
RPOKE: BIC it + taal ciate 
C 


LR STMP 
ROR STMP1 ;FORCE CARRY 
ROR STMP2 ;PICK UP CARRY IN BIT 15 


ASR STMP2 ;SHIFT INTO BIT 14 


—————___—_—_—_———_+ 


| 
SEQ 0070 


DZDUT-B MACY11 30(1046) 
DZ0UTB. M11 


3641 017174 042767 
3642 017202 056777 
3643 017210 042777 
3644 017216 052777 
3645 017224 005367 
3646 017230 001346 
3647 017232 000207 


3650 017234 016767 
3651 017242 005067 
3652 017246 012727 
3653 017252 o0C000 
3654 017254 006067 
3655 017260 005567 
3656 017264 005367 
3657 017270 001371 
3658 017272 006067 
3659 017276 103404 
3660 017300 052767 
3661 017306 COO403 
3662 017310 042767 


3664 017316 000207 


3667 017320 016767 
3668 017326 005067 
3669 017332 012727 
3670 017336 006000 
3671 017340 006067 
3672 017344 005567 
3673 017350 005367 
3674 017354 001371 
3675 017356 006067 
3676 017362 103004 
3677 017364 052767 
3678 017372 000403 
3679 017374 042767 


3681 017402 000207 
3682 017404 062716 


3684 017410 000002 
3685 000001 


31-MAY-77 09:4 


Zi- - 77 «O09: PAGE 73 
TRAP TABLE 


100000 162300 Bic 
162274 162516 BIS 
020000 162510 BIC 
020000 162502 BIS 
161672 DEC 


162249 162240 ODDS: 


162236 CLR 

000010 MOV 
4S: Q 

162222 1S: ROR 

162220 ROC 

177762 DEC 

BNE 

162206 ROR 

BCS 

000400 162172 _ 
R 

000400 162162 2%: BIC 


#81715, STMPZ ‘CLR BIT 15 
STMPZ, dTXCSR + POKE MAINT DATA 
CLK, aTXCSR +POKE CLK 

CLK, aTXCSR ; 

SHIFT 

RPOKE 

PC 


ROUTINE CALCULATES ODD PARITY FOR AN 8 BIT CHAR 


STMP1,STMP2 +; SAVE TEMP1 
STMP3 
#8.,(PC)+ 
STMP2 
STMPS 

4§ 

1$ 

STMP3 

2$ 

#B ITS, STMP1 
3$ 

#B ITS, STMP1 


;SET ODD PARITY 
CLR EVEN PARITY 


>STMP1 NOW HAS ODD PARITY CHARACTER 


3: RTS 


PC 


;THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER 


162154 162154 EVENS: MOV 


162152 CLR 

000010 MOV 
4S: 0 

162136 1S: ROR 

162134 ADC 

177762 DEC 

BNE 

162122 ROR 

BCC 

000400 162106 Sh 
000400 162076 2%: BI 

38: RTS 

000002 TRPREG: ADD 


RTI 
END 


STMP1,STMP2 ;SAVE TEMP1 
STMP3 
#8. ,(PC)+ 


STMPS 

2$ 

#BITS, STMP1 
3$ 

#B1T8, STMP1 


>SET EVEN PARITY 
-CLR ODD PARITY 


C 
,STMP1 NOW HAS EVEN PARITY CHARACTER 
P 


#2,(SP) ;ALLOW IT TO "CRUNCH" INTO HLT BACK 
> IN MAIN PART OF THE PROGRAM 





SEQ 0071 


i 





DZDUT-B MACY11 3011046) 


DZDUTB. M11 


003200 
000000 
000000 
oco0000 
000000 
001166 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
oco000 


: 000000 


001154 


31-MAY-77 09:49 


877 


H 6 


21-SEP-77 09:18 PAGE 75 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1264% 1265% 1272k 2796 2799 2809 


30578 


3173 


1269% 1270 1276% 1278% 28038 2815% 


SEQ 0072 


2819 


DZDUT-B MACY11 30(1046) 


DLZDUTB. M11 

BASEIVY 001162 
BBB 003026 
BINWRD 014134 
BiITW = 002000 
BiTO = 000001 
BiTOO = 000001 
BiTO1 = 000002 
B1TO2 = 000004 
BiTO3 = 000010 
BiTOY = 000020 
B1TOS = 000040 
BITO& = 000100 
B1TO7 = 000200 
BiTO8 = 000400 
BiTO9 = 001000 
BiTi = 000002 
BiT10 = 002000 
BiT11 = 004000 
BiT12 = 010000 
BiT13 = 020000 
BiT14 = 040000 
BiT15 = 100000 
BIT2 = 000004 
BiT3 = 000010 
BIT4Y = 000020 
BiTS = 000040 
BiTé = 000100 
BIT? = 000200 
BiIT8 = 000400 
BIT9 = 001000 
BPTVEC= 000014 
BREAK = 069001 
BRU 016642 
BRX 016644 
CARDET= 010900 
ccc 012622 
CHRCNT 014132 
CKSWR 012716 
CLK = 020000 
CNTLU 012772 
CONVRT= 104413 
COUNT 001124 
CR 000015 


CRLF 


000200 


21-SEP-77 09:18 PAGE 7 


6 
31-MAY-77 09:49 CROSS REFERENCE TABLE -- USER SYMBOLS 


3354 
1378% 
1599% 


2975 
2975 


2816% 


1853 
2596 
972 


2699 


35938 
14104 
1614% 


2821 


1425% 
1625% 


| 6 


2822% 


1975 


2704 


3161 


976 
975 
974 


980 


1594 


14 36% 
10424 


2823 


2036 
2757 


995 
993 


1369 
1603 
1848 
1978 
2154 
2290 
2438 
2591 
2707 


1450% 
1644 


2824% 


2097 


3168 
3493 
3641 


3660 


2825 


21£8 


3500 


3662 


2826% 


2219 


3677 


1503% 
1710% 


2827 


2277 


3679 


1518% 
17214 


SEQ 0073 

2828% 

2330 2383 
1417 1498 
1699 1701 
1909 1910 
2039 2049 
2215 2221 
2343 2378 
2492 2493 
2644 2645 
2760 2770 


1529% 1546% 
1738% 1740 


EEE eee 


DZOUT-B MACY11 30(1046) 
31-MAY-77 09:49 


DZDUTB. M11 

CTS = 020000 
DDISP = 177570 
DEVADR 013662 
DEVICE 015325 
OF 1 002132 
DH1 002067 
DISPLA 001442 
DISPRE 000174 
DNA = 100000 
DNAINT= OOOO40 
osc ==: 100000 
DSINTE= OO0040 
DSR = 001000 
DSWR = 177570 
OTR = 000002 
OT1 002116 
DT4 002126 
DUADDR 017012 
DUBASE 017144 
DULEV 016736 
DUPRT 017006 
DURIS 001740 
OURIV 001736 
DUTIS 001744 
DUTIV 001742 
EIGHT = 006000 
ENTVEC= 000030 
EM1 001762 
ENZ 002022 
EMS 002043 
EN4 001746 
ERRCNT 001114 
ERRVEC= 000004 
EVENS 017320 
EVEPAR= 001400 
EVPAR = 000400 
FivE = 000000 
FRMERR= 020000 
GNS = KKKKKE 
HDOXEN = 000010 
HILIM 013660 
HLOO 001130 
HLO1 001132 
HLOZ 001134 
HLO3 001136 
HL D4 001140 
HLDS 001142 
HLD6 001144 
HOLD 001120 
HPARCS 001724 
HRXCSR 001714 
HRXDBU 001720 
HT = 000011 
HTXCSR 001730 


21-SEP-77 09:18 PAGE 
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77 


1040 
10758 
1190% 


10818 
3613 
3626% 
3602% 
1242 


1408 


1166% 
1501 


1781 
1465 


3584 


1086# 
3160% 


3614% 
3627 


3603% 
2821% 


1964 


3505 
1597 


2025 
1468 


3587 


J 6 


3544% 


3615 
3628% 


3604% 
2828 


2208 


3506* 
1693 


2266 
1558 


3588 


3616% 
3629 


3605 


35084 
2266 


2319 
1561 


3589 


3617 3618 3619% 


36318 

36098 

35114 

2372 2479 2585 
2372 2425 


1564 1654 1657 
3590 3591 3592 


3620 


2693 


1660 
3593 


| 

sea 0074 | 

| 

| 

| 

3621 3622 | 
1750 1753 


3594 


DZ0UT-B MACY11 30(1046) 


DZOUTB. M11 


HTXDBU 
INBUF 

INIFLG 
INSTER= 
INSTR = 
INSTR2Z 
1OTVEC= 
ISYMOD= 


MRE GAD 


001734 
016146 
001172 
104407 
104406 
013464 
000020 
000000 


001153 
001156 
001164 
001160 
017010 
000012 
001102 
013612 
013664 
001110 
001174 
013656 
016113 
015337 
015437 
016252 
015506 
010000 
016053 
004000 


015273 
015552 
016134 
016123 
015244 
015442 
015433 
015533 
01536” 
015214 
000400 


015605 
040000 
015146 
015537 
001152 
015201 
015774 
015724 
015653 
001106 
000000 
001000 
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3629% 


34678 


1359 
2263 


1362 
2319 


3014 
35898 
1254 
1408 
2630 
1276 


1284 
36108 


3057 


1405 
2316 


1781 
2425 


3132 
1279 
1494 


2638 
1278 


1498 
2369 


1400 
1896 
2310 
2631 


1498 


1842 
2532 


K 6 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3136 


1295 


1501 


2815 


1594 
2422 


1402 
1955 
2312 
2684 


1594 


1903 
2638 


34638 


1308 


1590 


1690 
2476 


1493 
1957 
2363 
2686 


1690 


1964 
2746 


1312 


1597 


1778 
2529 


2025 


1316 


1686 


1839 
2582 


2086 


1320 


1693 


1900 


2635 


1591 
2077 
2418 


2147 


1331 


2364 


1961 
2690 


2208 


2874 


2372 


2022 
2743 


1687 
2138 
2472 


SEQ 0075 


35888 


2417 


2083 


DZDUT-B MACY11 30(1046) 


DZ0UTB. M11 31-MAY-77 09 
0008 017234 36508 
ONCE 002610 1201 
OPTCLR 001151 7258 
OUT 013024 2860 
OUTCRY 012614 2792 
OUTMUL 003166 1252 
OVRRUN= 040000 7828 
PARAM = 104410 1224 
PARAM1 013516 30138 
PARCSR 001722 10478 
1834% 
2208% 
2577% 
PAREN = 001000 786% 
PARER = 010000 7848 
1756 
PARERR 013572 3016 
PART! 013654 3032 
PASCNT 001112 7038 
PFTAB 015140 3355 
PIRQ = 177772 586% 
PIRQVE= 000240 6808 
POPRO = 012600 759% 
POP1SP= 005726 7578 
POP2SP= 022626 7618 
PRO = 000000 €03% 
PR1i = QO00040 6U48 
PR2 = 000100 605% 
PR3 = 000140 606% 
PRY = 000200 6078 
PRS = 000240 6088 
PR6 = 000300 6098 
PR7 = 000340 6108 
PS = 177776 5838 
PSH = 177776 5848 
PUSHRO= 010046 7588 
PUSH1S= 005746 7568 
PUSH2S= 024646 7608 
PWRVEC= 000024 675% 
ROSH 013032 2870% 
RECACT= 004000 7688 
REPLAY 012520 2811 
RESTAR 015044 3335 
RESTRT 012700 2812 
RESVEC= 000010 670% 
RESOS = 104412 35928 
RETURN 001104 7008 
RING = 040000 7658 
RINTEN= 000100 7738 
ROTADD 001170 7398 
RPOKE 017146 1374 
36368 
RTS = OO00004 7778 
RUNA = KeeaaK U 1 
RUNB = &ka4a%% U 1 


aaaaRK OU 


21-SEP-77 09:1 
249 


CROS 


Pp 


2864 
12888 
1462 
1256 
1362% 
1895% 
2266% 
2630% 
1437 
3020 


2839% 


1146% 
28828 


28198 
28508 


1339% 


1263% 
1440 


141 
141 
141 


2868 
1558 
1281 
1401% 
1903% 
2311% 
2638% 
1462 
30298 


2840 


3031 


1341% 


1265 
1459 


514 
514 
514 


28808 
1654 
1333 
1408% 
1956x 
2319% 
2685% 
1468 
3039 


2841 


1343 


1267% 
1514 


L 6 
AGE 79 
S REFERENCE TABLE -- USER SYMBOLS 


1750 
2875 


1494" 
1964% 
2364% 
2693% 
1530 


3041 


3360 


1272 
1533 


35908 
1501% 
2017% 
2372% 
2738% 
1558 


3043 


1275% 
1555 


1590% 
2025% 
2417% 
2746x 


1564 


2806% 


1610 


1597% 
2078% 
2425% 
3618% 


1626 


2809 
1629 


28134 
1651 


1693% 
2139% 
2479% 


1660 


1706 


1773% 
2147% 
2524% 


1722 


1725 


SEQ 0076 


1781% 
2200% 
2532% 


1750 


1247 


MN 6 


DZDUT-B MACY11 30(1046) 21-SEP-77 09:18 PAGE 80 

DZO0UTB. M11 31-MAY-77 09: 49 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0077 

RUND = 000000 1 51 141 514 

RUNE = XKEKKK U 21 57 144 519 

RUNF = KKXKEX U 21 57 144 519 

RUNIT 012424 2797 28038 2810 

RXCSR 001712 10438 1363% 1370% 1375 1411k 1418% 1422 1441 1504% 1511% 1515 1534 1600% 
1607% 1611 1630 1696% 1703% 1707 1726 2833 3h13% 

RXDBUF 001716 eps 1409 1428 1444 1502 1521 1537 1598 1617 1633 1694 1713 1729 

RXDONE= 000200 7728 965% 

RXERR = 100000 7818 9748 8 1437 1462 1465 1468 1530 1558 1561 1564 1626 1654 1657 
1660 1722 1750 1753 1756 

SAVIT 014366 3170 31918 

SAVPC) §=©001126 7128  3061% 

SAVSP 001116 705@ 8=63334k 863341 

SAVOS = 104411 35918 

SCOP1 = 104405 35878 ; ' 

SEND = 000020 808% 10018 1778 1839 1900 1961 2022 2083 2144 2205 2263 2316 2369 
2422 2476 2529 2582 2635 2690 2743 

SEREC 001150 7248 = =61315 

SETFLG= 104414 1245 1310 1314 1318 1322 35948 

SEVEN = 004000 7948 9878 1501 1903 2147 2693 2746 

SEXMIT 001147 7238 = 1311 

SHIFT 061122 7108 1373% 1419% 1439% 1457k 1512 1532% 1553% 1608% 1628% 1649% 1704% 1724% 


1745k 1785x% 1802k 1846k 1863k 1907k 1924% 1968% 1985% 2029% 2046% 2090% 2107% 
2151k 2168% 2212k 2229k% 2270k 2287k 2323K 2340 2376k% 2393% 2429% 2446k 2483% 
2600k 2536k 2553k 2589x 2606% 2642k 2659% 2697K 2714% 2750k 2767%  3645% 


Six = 002000 7938 9868 1597 1842 2086 2479 2832 4846-2885 2638 
SPACNT= 014133 3091% 3110 31U13Kk = - 31.238 
SRO = 002000 769% 9628 
STACK = 001100 5748 1137 1173 1327 3350 
sTtO = 000010 7768 969% 
STFLG 001173 7458 8=1176% 
STKLMT= 177774 585% 
STPSYN= 000400 7718 964% 1370 1418 1511 1607 1703 
sv0s 013674 3065% 
SHR 001440 8438 1135 1156* 1158 1164% 11718 1187 1189% 1194 1210 1329 2861 2892 
3161 3168 3180 3183 3493 3500 3514 3516 3522 3529 
SWREG 000176 686% 1164 1189 1194 2861 2878 2885 
SWREGL 013034 2873 28838 
SWO = 000001 638% 
SWOO = 000001 628% 638 1210 
SWO1 = 000002 627% 637 1329 
SWO2 = 000004 6268 636 
SWO3 = 000010 625% 635 
SWO4 = 000020 6248 634 
SWO5 = 000040 6238 633 
06 = 000100 6228 632 
SWO7 = 000200 6218 631 
SWwO8 = 000400 6208 630 
SWO9 = 001000 6198 629 2892 
SW1 = 000002 6378 
SWwid0 = 002000 618% 
SWi1 = 004000 6178 
SWi2 = 010000 616% 
SWi3 = 020000 6158 
SW14 = 040000 6148 
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SW15 = 100000 6138 


SW2 = 000004 636% 

SHS = =: 000010 635% 

SW4 = 000020 6348 

SW5 = 000040 6338 

SW6 = 000100 6328 

SW? = = 000200 6318 

SW8 = 000400 6308 

SW9 = 001000 629% 

SYNCNO 001146 7228 «=©1299% 1303% 

SYNEXT= 020000 7908 983% 2017 2025 2078 2086 2139 2147 2200 2208 

SYNINT= 030000 789% 9828 1355 1362 1773 1781 1834 1842 1895 1903 1956 1964 
2266 2311 2319 2471 2479 2524 2532 2685 2693 2738 2746 

SYNSCH= 000020 7758 968% 1363 1411 1504 1600 1696 

SYSTST= 014000 815% 10088 

TBITVE= 000014 6718 

TEMP 016210 3096 3351% 3352k 34658 

TKVEC = 000060 678% 

TPVEC = 000064 679% 

TRAPVE= 000034 6778 =61143K = 1144% 

TRPREG 017404 3682% 

TRTVEC= 000014 672% 

TST1 003374 1334 1241 13538 2851 3490 

TST10 006130 18938 

TSTi1 006346 19548 

TST12 006564 2015% 

TSTi3 007002 2076% 

TST14 007220 21378 

TST15 007436 21988 

TST16 007654 22568 

TSTi7 010062 23098 

TST2 003544 13998 

TST20 010270 2362% 

TSTZ21 010476 24158 

TST22 010704 24698 

TST23) 9=011112 25228 

TST24 011320 25758 

TST25 011526 26288 

TST26 8011734 268 38 

TST27 =6012142 27368 

TST3 004132 14928 

TST4 004520 15888 

TSTS 005106 16848 

TST6 005474 17718 

TST? 005712 18328 

TTST 016332 34938 

TXCSR 001726 10498 1354k 1356% 1359k i1365% 1366% 1368% 1369k 1400k 1402k 1405% 1413% 


1416k% 61417K 1493k 1495k 1498k 1506% 1507x% 1509k 1510% 1589% 1591% 1594% 
1603% 1605% 1606k 1685% 1687k 1690% 1698% 1699k 1701K 1702k 1772k = = 1774% 
1782 1787k 1788k 1794% 1795k 1796 1805x 1807 1814 1833% 1835% 1839% 
1848k 1849% 1855% 1856% 1857 1866% 1868 1875 1894% 1896% 1900% 1904 

1910 1916% 1917k 1918 1927k 1929 1936 1955% 1957k% 1961% 1965 1970% 
1977% 1978% 1979 1988x 1990 1997 2016% 2018%  2022% 2026 2031%  2032% 
2039% 2040 2049% 2051 2058 2077% 2079k 2083% 2087 2092% 2093k  2099% 
2101 2110% 2112 2119 2138% 2140k 2144% 2148 2153e% 2154% 2160% 2161% 
2199% 2 2214% 2221% 22228 2223 








SEQ 0078 


2258 


2 
2232% 





B 7? 
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2234 2241 2257% 2259% 2263% 2267 2272% 4 2273% 2279% 2280% 2281 
2310% 2312% 2316% 2325% 2326% 2332% 2333% 2334 2343% 2345 
2369% 2378% 2379% 2385% 2386% 2387 2396% 2398 2416% 2418% 





TXDBUF 001732 1051 1783% 1844% 1905% 1966% 2027k 2088% 2149% 2210% 2268%  2321% 
2481% 2534% 2587k 264Ck 2695% 2748% 3627% 

TXDONE= 000200 8058 9988 

TXINTE= 000100 8068 9998 

TYPE = 104401 1202 1342 2790 2793 2798 2869 2871 2939 2982 2999 3085 
3171 3207 3224 3226 3229 3231 3235 3242 3306 3356 35814 

TYPOC = 104402 3215 3239 35828 

TYPON = 104404 3584% 

TYPOS = 104403 35838 

USER = 000000 8128  1005% 

void = 000001 779% 9728 

WROCNT 014139 3089% 3118k 31218 

ZERO 012432 28048 

SAPTHD 002136 1108 11148 

SASTAT= xxxxKK U 537 

SATYC O00024R 5378 

SATY1 QOOO0OR E378 

SATY3 OOO00ER 5378 2924 

SATY4Y  OO00016R 537% 3176 

SAUTOB 001434 8408 

SBASE 001602 9188 

SBDADR 001422 8358 

SBODAT 001426 837% 

SBELL 001516 869% 3163 3191 

$COWi1 001606 9208 

S$COW2 001610 9218 

SCHARC 013344 2941k 2951% 2958 2967k 29728 

SCKSWR= X2KRxRX U 3587 

SCMTAG 001400 8238 1132 1133 1141 1147 1148 

$cmi = 000006 855% 8568 8578 858% 859% 86ne 8618 

| $CM2 = 000014 8558 8568 8578 8588 859% 8608 8618 

$cmM3 = 000006 8538 855 

scm4 = 000006 861% 8628 8638 864% 865% 866% 8678 

SCPUOP 001554 892% 

SCRLF 001523 8718 2940 2975 3171 3191 3207 3226 3231 3235 

SO0WO 001612 9228 

SO0Wi1 001614 9238 

$D0W10 001636 9328 

$00W11 001640 9338 

$00W12 001642 9348 

SOOW13 001644 9358 

S$D0W14 001646 936% 

$00W15 001650 9378 

SO0W2 001616 9248 

S$O0W3 001620 9258 

S$O0W4 001622 9268 


$00WS 001624 9278 








eS 
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$0DW6 001626 928% 
S$DDW7 001630 929% 
$00W8 001632 930% 
S$O00W9 001634 931% 
SDEVCT 001536 883% 
SDEvVM 001604 919% 
SE = 000002 535% 
SENDAD 012670 1095 2846% 
SENV 001546 537 888% 1204 2919 2980 3173 
SENVMN 001547 537 8898 1169 2921 2926 | 
SERFLG 001403 8268 1178% 2838% 3158k 3191 3358x 3474 3518 3520 3526x 3550 
SERMAX 001415 8328 1149% 3520 3543x 3550 
SERROR 014204 1141 31578 
SERRPC 001416 8338 1081 1084 1180%  2837k 3165% 3166k% 3167 3191 3213 3359% 3489% 
SERRTB 001652 10238 3221 
SERRTY 014424 32068 
SERTTL 001412 8308 1179% 3164k 3191 
SESCAP 001514 868% 1148% 3186 3188 3191 3542% 
SETABL 001546 887% 
SETEND 001652 940% 1120 
SFATAL 001530 537x &808 
SFFLG O00244R 5378 
SFILLC 001456 851% 2944 2975 
SFILLS 001455 850% 2975 
GDADR 001420 8348 
$GDDAT 001424 236% 
SGTSWR= X2xKxKKK U 3526 
SHIBTS 002136 11158 
SICNT 001404 8278  3533% 3534 3536% 3549 
SINTAG 001435 8418 
SITEMB 001414 8318 3167k 3175 3191 3210 
SLF 001524 8728 2975 3191 
SLFLG 000243R 5378x 
SLPADR 001406 8288 1150% 2851% 3495x 3524" 3540% 3545 3549 
SLPERR 001410 8298 1151% 3185 3524 541k 3549 
SMADR1 001560 905% 
SMADRZ2 001564 9098 
SMADR3 001570 912% 
SMADRY 001574 915% 
SMAIL 001526 878% 1116 1120 1168 2919 3173 3539 
SMAMS1 001556 899m 
SMAMSZ2 001562 907% 
SMAMS3 001566 910% 
SMANSY 001572 9138 
002140 11168 
SMFLG 000242R 5378 
001542 537% 885% 
SMSGLG 001544 537% 886% 
SMSGTY 001526 537% 873% 
SNTYP1 001557 9008 
SNTYP2 001563 9088 
SMTYP3 001567 9118 
SMNTYP4Y 001573 9148 
SMXCNT 016646 3537 35498 
$N = 000000 5358 27828 


SNULL 001454 849% 2946 2975 
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SNUTST= 000000 13528 13988 14918 15878 16838 17708 18318 18928 19538 20148 20758 2136# 21978 
22558 2308 23618 24148 24688 25218 25748 26278 26828 27358 

SOCNT 015002 3278k 3307% 33208 

SOMODE 015004 3273% 3277% 3282 3285% 3296% 33228 

SOVER 016626 3498 3501 3517 3525 3535 35448 

SPASS 001534 8828 1168% 2841% 3531 3550 

SPASTM 002144 11188 

SPWRON 015006 1145 33268 

SQUES 001522 8708 2975 3191 

SROCHR= KERKKK U 3587 

SRODEC= XkxxKK U 3587 

SROLIN= KRKKKK U 3587 

GROOCT= KKRKKK U 3587 

SREGAD 001460 8538 

SREGO 001462 8558  3070% 3075 

SREG1 001464 8568  3069% 3076 

SREG2 001466 8578  3068% 3077 

SREG3 001470 858%  3067x 3078 

SREGY 001472 8598  3066% 3079 

SREGS 001474 8608 3065* 3080 

SRZA = KXKKKK U 3587 

SSAVRE= Xee4KK U 3587 

SSCOPE 016314 1139 34838 

SSETUP= 000017 11218 1138 1139 1141 1143 1145 1147 1148 1150 3158 3183 3190 3484 

SSTUP = 177777 11218 

SSVLAD 016572 3£09 35388 

SSVPC = 002136 10938% 1098 

SSWR = 177400 526% 867 868 869 1147 1148 1150 1151 1354 1400 1493 1589 1685 
1772 1833 1894 1965 2016 2077 2138 2199 2257 2310 2363 2416 2470 
2523 2576 2629 2684 2737 3149 3150 3151 3152 3153 3161 3168 3180 
3183 3191 3475 3476 3477 3478 3479 3500 3512 3514 3515 3518 3519 
3520 3527 3528 3529 3541 3544 3549 

SSWREG 001550 8908 1171 

SSWRMK= 000000 3479 3480 3516 

STESTN 001532 8818  3539% 

STIMES 001512 8678 1147% 3527% 3534 3537% 3549 

STKB 001446 8468 2865 2988 2996 3499 

STKS 001444 8458 2863 2986 3497 

STMPO 8=©001476 8618 

STMP1 001500 8628 1372% 1420k 1438% 1458k 1461% 1464eK 1467K 1513% 1531% 1554% 1557% 1560% 
1563% 1609% 1627% 1650% 1653% 1656% 1659% 1705% 1723% 1746% 1749% 1752% 1755% 
1784x 1790 1845% 1851% 1906% 1912% 1967% 1973% 2028% 2034% 2089% 2095% 2150% 
2156k 2211% 2217% 2269% 2275*% 2322k 2328% 2375k 2381% 2428% 2434% 2482k 2488% 
2535x% 2541% 2588% 2594% 2641k 2647% 2696% 2702% 2749% 2755k 3638% 3650 3660% 
3662% 3667 3677% 3679% 

sTmP2 001502 8638  3637% 3639k% 340% 3o4ik 3642 3650% 3654% 3667% 3671% 

STMP3 001504 864%  3651% 3655% 3658k 3668%  3672% 3675% 

sTmP4Y 001506 265% 

sTmPS 001510 8668 

STN = 000030 5378 1352 13548 1398 14008 1491 14938 1587 15898 1683 16858 1770 17728 

: 1831 18338 1892 1894# 1953 1955 2014 20168 2075 20778 2136 21388 2197 

21998 2255 22578 2308 23108 2361 23638 8 2414 24168 2465 24708 2521 25238 
2574 25768 2627 2629% 2682 26848 2735 2737% 

S$TPB 001452 8488 2964% 2975 2996% 

STPFLG 001457 852% 2913 2975 


STPS 001450 8478 2962 2975 2994 
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DZDUTB. M11 


STRAP 
STRAPZ 
STRP = 


STRPAD 
STSTN 
STSTNM 


STYPBN= 
STYPOS= 


STYPE 
STYPEC 


SUNITN 


| S4YOCAT= 
. BEGIN 
. CONUR 


016650 
016672 
000015 


016704 
002142 
001402 


Po oo 8 8 | 
REKKKX 
013066 
013300 
013346 
014604 
014620 
014560 
001540 
002146 
001552 
001576 
001600 
016376 
015003 
KUKKEKX 
017412 


003310 
013760 
012350 
013456 
013350 
013370 
013372 
013466 
015006 
013726 
013666 
016314 
013044 
014136 
002152 
oS o 8 8 | 
002136 
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35588 
3580 
35828 


35808 


11308 
1163 


35838 


3286 


6848 
11058 
1535 
1860 
2115 
2401 
2764 


1212 


3001 
2867 


3348 


3594 
1182 


35848 


1339 


3581 
29628 


33218 


687% 
11078 
1539 
1871 
2120 
2443 
2775 


1327% 


29784 


2802 


35858 


2836x 


2963 


692% 
11094 
1612 
1876 
2165 
2454 
2975 


2853 


29838 


—E 7 


3587 


3160 


747% 


1136 
1622 
1921 
2176 
2497 
3191 


35888 


3191 


7488 


35898 


3197 


8228 


35908 


3474 


873 


35918 


3495 


35928 


3516 


1093 
1433 
1727 
1998 
2284 
2614 
34668 


35938 


3538% 


2 
34688 


SEQ 0082 
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DZOUTB. M11 
COMMEN 6818 
ENDCOM 681% 
ERROR 575% 
1719 
2044 
2349 
2765 
ESCAPE 681% 
GETPRI 681% 
GE TSWR 681% 
MULT 681% 
NEWTST 6818 
2308 
POP 537 
PRGEND 559% 
PRGFRT 538% 
PUSH 537 
PUSSYF 556% 
REPORT 526% 
RSE TUP 54 38 
sc 535% 
SCOPE 576% 
2309 
Sci 535% 
SETPRI 681% 
SETTRA 526% 
SETUP 6818 
SKIP 681% 
SLASH 6818 
SPACE 6818 
STARS 537 
1831 
2682 
SWRSU 681% 
TRMTRP =. 35738 
TSE TUP 5448 
2576 
TYPBIN 681% 
TYPDEC 681% 
TYPNAM 6818 
TYPNUM 6818 
TYPOCS 6818 
TYPOCT 6818 
TYP TXT 6818 
SBEGIN 535% 
$B INAR 555% 
SBUFFE 5378 
SCABLE 5578 
SCATCH 529% 
$cK 5368 
SCLRVE 535% 
SCONUR 5378 
SONA 5538 
SEOP 5368 
S$GETFL 5358 
SGETPA 5358 
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1424 
1732 
2060 
2402 


1398 
2414 


1400 
1399 
2415 


3&82 


818 
1953 
2898 


1833 
2684 


3237 


1820 


1308 
1233 


1491 
2468 


1881 


1312 
1253 


1587 
2521 


1942 


1316 
1279 


1683 
2574 


2003 


1320 
1331 


1770 
2627 


1771 
2628 


3588 


1101 


2197 
3471 


2077 


2064 


, # 


1831 
2682 


1832 
2683 


3589 
1103 


2255 
3552 


2138 


2125 


1892 
2735 


1893 


2736 


3590 


1110 


2308 


2199 


2186 


1953 


1954 
2788 


3591 


1352 
2361 


257 


2014 


2015 


3592 


1398 
2414 


2310 


2075 


2076 


3593 


1491 
2468 


2363 


2136 


2137 


3594 


1587 
2521 


2416 


SEQ 0083 


2197 


2198 


1683 
2574 


2470 


2255 


2256 


1770 
2627 


2523 


G ? 
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DZDUTB. M11 31-MAY-77 09: SEQ 0084 

SGETSY 535% 1290 

SHEADE 526% 560 

SINSTR 5378 2975 

$1SOB 5518 

SMATCH 548k 

SMRR 542% 

SMRRW 540% 

SMR 5418 

$MSG 5378 3364 

SNEED 5588 3191 

SPARAN 5378 3003 

SPFAIL 5378 3323 

SPOKE 5468 1787 1793 1848 1854 1909 1915 1970 1976 2031 2037 2092 2098 2153 2159 
2214 2220 2272 2278 2325 2331 2378 2384 2431 2437 2485 2491 2538 2544 2591 
2597 2644 2650 2699 2705 2752 2758 

SPOKER 547% 1367 1415 1508 1604 1700 

SRCNET 558% 1381 1471 1567 1663 

SRECAC 546% 

SREG 537% 3058 

SRESET 5398 1354 1356 1400 1402 1493 1495 1589 1591 1685 1687 1772 1774 1833 1835 
1894 1896 1955 1957 2016 2018 2077 2079 2138 2140 2199 2201 2257 2259 2310 
2312 2363 2365 2416 2418 2470 2472 2523 2525 2576 2578 2629 2631 2684 2686 
2737 2739 

SRXACT 5458 

SSCOPE 5358 3469 

SSCOP 1 5368 2888 

SSETFL 5358 3125 

SSETVE 530% 681 

SSTART 535% 1122 

SSTRIP 552# 1345 

SSYMBO 5268 749 942 

SSYNCR 5488 1363 1411 1504 1600 1696 

STRPAR 5548 2247 2300 2353 2406 2460 2513 2566 2619 2674 2727 

STSTNO 5358 1352 1398 1491 1587 1683 1770 1831 1892 1963 2014 2075 2136 2197 2255 
2308 2361 2414 2468 2521 2574 2627 2682 2735 

SUN 1BU 538% 

SVARIA 533% 691 

SWORDF 5498 

SWORDO 5488 

SWOROP 5508 

SSCMRE 8168 855 856 857 858 859 860 

SSCNTN 816% 861 862 863 864 865 £66 

SSESCA 681% 

SSNEWT 6818 1352 1398 1491 1587 1683 1770 1831 1892 1953 2014 2075 2136 2197 2255 
2308 2361 2414 2468 2521 2574 2627 2682 2735 ‘ 

SSSET 35738 3582 3583 3584 3587 3588 3589 3590 3591 3592 3593 3594 

SSSETN 11688 

S$SSK IP 6818 

EQUAT 5268 571 

HE ADE 5268 

SETUP 526@ 1121 

SACT1 5268 1089 

SAPTB 526% 8748 

SAP TH 5268 1099 

SAPTY 5268 537 


} H 7 ] 
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$CMTA «S268 =~ B16 

SEOP 5268 


 SERRO 526% 3143 
-SERRT 526% 3199 


SSCOP 5268 3469 
. STRAP 526% 3550 
_ STYPE 526% 2896 

STYPO 526% 3246 


ABS. 017412 000 


ERRORS DETECTED: 0O 


DZDUTB. OZDUTB/SOL/CRF =DZDUT1/EQ: RUND, D2DUT2. OZDUTB 
RUN-TIME: 21 12 1 SECONDS 

RUN-TIME RATIO: 255/35=7. 1 

CORE USED: 30k (59 PAGES) 


